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LIST in Lower Case 

Robert Dei, a PET user in Mississauga, has discoverec a 
sequence that will cause PET printers to LIST in upper/lower 
case rather than graphics and upper case... 

The method to accomplish this is actually quite 
simple: 

1. POKE 59468, 14 

2. Enter the follov/ing line in direct mode: 

openl,4,l:open2,4,2:print#2,"9" :fore=lto 
2 :print#l,a;a;a;a;a;a:next:closel : close 2 

After pressing RETURN, the printer will print six 
"l"s and then six "2"s on the next line. If a file 
is then opened to the printer and the "cmd" command 
is given, the printer will respond v/ith the v;orc 
"ready." in lower case. Any program listing 
performed from then on v/ill appear in upper/lov/er 
case. Power dov/n and up to get graphics back. 

I regret to say that I don't know what caused this 
phenomena to occur, except that it works. I would 
be most interested if you or any PET user can 
provide a logical reason as to why?... Robert Oei 

This was tested on 2022/23 printers and found to v/ork on some 
but not all. 



Editor's Note 

A number of readers have expressed concern about the 
duration of their subscription to The Transactor. Let me 
clear up any misunderstanding. Volume 2 Transactor 
subscriptions include issues 1 through 12 and are renev/able 
upon receipt of issue #12. Therefore, anyone with a 
subscription to Vol. 2 should nov; have issues 1 to 9 and can 
expect 3 more bulletins before subscribing to Vol. 3 (a 
subscription form will appear in #12) . 

The Transactor is now produced on the new CBM 8032 using 
V7ordPro IV and the NEC Spinwriter. 
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Bits and Pieces 
Printer Tabbing 

When using TAB to print on the screen, PET looks at the 
current position of the cursor first ( POS(O) ). If the TAB 
argument is less than the cursors' position on the line then 
the data is simply printed in the spaces immediately 
following the last character printed. If the argument is 
greater than or equal to POS(O), PET subtracts POS(O) from 
the argument and prints the resulting number of 
cursor-rights. 

However, when printing to the printer, the cursor is 
usually in column zero and TAB acts like the SPC function 
(the printer has no "internal cursor"). Therefore, to make 
TAB work on the printer, print the data to the screen first 
then to the printer. This can be done with duplicate PRINT 
and PRINT# statements or more efficiently with one "dynamic" 
PRINT# statement. For example: 

10 REM OPEN OUTPUT FILES TO 

SCREEN & PRINTER 
20 OPEN 3,3,1 
30 OPEN 4,4,0 

40 PRINT# 3+X,"ABCDEFGHIJKLMNOP0RSTU\'T\T"; 
50 X=l-X : IF X THEN 40 

Line 50 toggles X from 1 to thus repeating line 40 only 
twice. The semi-colon is important else the POS(O) goes back 
to zero. When a carriage return is required on the printer 
the following might be inserted between PRINT# and toggle 
statements: 

45 IF X THEN PRINT#4 ,CHR$ (13) ; 

Dynamic PRINT# statements are only more efficient if the 
DATA being printed is within quotes. If variables are used, 
more bytes are probably saved by duplicating the output 
statements. 



More on Printer Onhpiit- 

L. D. Gardner of Leisure Books Ltd., St. Laurent Quebec, 
wrote in with: 

Dear Sirs, 

Our company uses 2 32k Commodore Pets with 
Centronics printers*. 

The printers are used to produce formal 
reports of a statistical nature, and we have found 
that the most difficult task is not in programming 
the calculations, but in printing the data in 
acceptable format. 

If 2 decimal places are required, a value of 
"302" is not printed as "302.00", which makes the 



reports difficult to read. Also, a very small 
value such as ".001" is printed as "IE -03". 

I have come up with a subroutine to handle 
this problem. Undoubtedly, it could be shortened, 
but for clarity is is shown in the detailed 
version. 

I am also enclosing a simplified program which 
illustrates how a program can be made to update 
itself. It has value when not sufficient data 
makes tape or disk files worthwhile. At the end of 
the program, DATA lines are printed and the cursor 
is moved up. All that's neede is to hit RETURN. 

SUBROUTINE TO FORMAT OUTPUT DATA 

100 Q$=". 000":LQ=LEN<Q$):LT=LOG(10) 

110 P=LQ-1:IF Q$="" THEN P=0 

150 INPUT"NUt1BER"; fi 

160 fll=INT<R*10''P+. 5)/'10'^P 

165 IF fll=0 THEN220 

170 Bl$=STRf <fil) 

180 B2$=STR$<fll*10T) 

190 LG=INT<LOG<flBS(fll»/LT) 

195 IF RBS<fll)=l THEN B$="l"+Q* 

280 IF flBS<fll)<l THEN B$=LEFT$<Q*,fiBS<LG))+RI6HT*<B2$. LEN(B2$)-i> 

210 IF fiBS<fll»l THEN B$=MID*<B1$, 2,LG+1)+". "+RIGHT$<B2$, P) 

215 IF flBS<fl)=l THEN B$="l"+Q$ 

220 IF fll=0 THEN B$=Q$ 

225 IF fll<0 THEN B$="-"+B$ 

230 PRINT"2" 

240 PRINTfll,B$ 

245 PRINT" 

250 GOTO 150 

* This would also apply to Commodore printers and others 

DYNAMIC TEXT PROGRAM 

100 REM R=ROWS, C=COLUMNS 
110 R=4:C=2 

115 PRINT"REWIND CASSETTE THEN PUSH flNV KEV" 

116 GETG$:IFG$="" THEN 116 
120 DIMfl<R,C) 

120 FOR I=lTOR:F0RJ=lT0C:REflDfl<LJ):fl<LJ)=fl<I,J)*2:PRINTfl<LJ):NEXTNEXT 
200 PRINT"3" 

220 FORI=iTOR:PRINT2000+<10*(I-l>); 

220 PRINT"DflTfl "; 

240 FOR J=1T0C 

250 PRINTfl(LJ); 

255 IF J<C THEN PRINT"=, "; 

260 NEXTJ 

270 PRINT 

2^ r«XT 

285 PRINT"SfiVE" 

290 PRINT" 

400 STOP 

2000 DftTfi 32, 64, 96 

2010 DflTfl 128, 160, 192 

2820 DflTfl 224, 256, 288 

2830 DflTfl 220, 352, 284 



Hints on developing this program could be found in the 
Disk Merge article (Transactor 8) and Paul Barnes article on 
finding DATA statements (this issue). 

Consider a program that could receive data from the 
keyboard and then SAVE itself with the data 
included. ..dynamically! Such a program v/ould have to first 
determine a line number for the DATA statement. This would 
be PRINTed followed by "DATA" and your information. By 
POKing the keyboard buffer (623-632 see also 158 # 
characters in buffer) and ENDing program execution, carriage 
returns could be released over top of the line upon 
relinquishing control to PET. The screen editor would enter 
the DATA statement into text and a second carriage return 
could be placed over a RUN or GOTO xxx back into the program . 
Once the program reaches memory capacity, it can be filed for 
future reference and a new program started. Ideal as a light 
data-base. 



FRANK A ERNEST 
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NEWS BYTES W.T. Garbutt 

Mississauga, Ont. 

V7aterloo Extended PET BASIC 

VJaterloo University recently announced the availability 
of an extended Basic for the Commodore 16/32k PET. The 2k 
ROn chip resides in expansion ROM socket at 9000, comes with 
a 160 page user manual and costs $75 in single quantities. 
Waterloo University is introducing the product in a series of 
3-v;eek seminars of particular interest to high school 
teachers involved in the programming sciences. The seminar 
participant attends a one day introductory session, takes 
home a PET and returns for a 2 day concluding session. Yours 
truly is presently attending the course and will file an in 
depth report of the Basic and the course in a future 
Transactor. Essentially the nev; Basic supports all existing 
Pet Basic syntax while adding powerful commands such as 
LOOP. . .ENDLOOP. . . WHILE. .. ENDIF. . .CALL. . .PROC(edure) ,etc. to 
permit a fully structured program approach consistent with 
accepted industry practices. For further information contact; 

Prof. W. J. Graham, 
Computer Systems Group, 
University of Waterloo, 
Waterloo, Ontario Canada, 
N2L 3G1, 
(519) 885-1211 

Coming Reviews or Articles 

KRAM 2 .0 

United Software of America's 2k ROM provides the heart of 
an advanced keyed Random Access (disk) management system, 
essential for comprehensive data base management 
implementations. 

R abbi t 

Eastern House Software's (Carl Moser) utility software 
that among other things increases PET tape speed by a factor 
of four. 

ROM E?^panigiQn 

What to do about conflicting expansion ROM assignments. 
How to use the expansion Rom area of the PET. 

Structured Symbolic Basi c Compiler 

Softside Software's Basic program that implements a 
structured two pass compiler on the PET! 
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Computer Music 

Beginning in the next 
definitive series of articles 
about PET and music. 

Micro-Computer Communication 

A look at MicroNet and the Source, as well as the 
Where's, why's and how's of establishing contact with other 
micro-computer users over telephone, radio etc. 

Nev; Products 

Scheduled for imi.iinent release are several superb 

software packages Personal Softvcare's VISICALC data base 

management with advanced mathematical modelling features 

SARGON super chess for the PET.... an 80 character video 
display equipped PET.... a 1.1 megabyte dual floppy 5 1/4" 
Qisk PET peripheral. 

Meetings or Events 

12th June 

The 1st annual Sheridan College Music Symposium: A one 
day seminar featuring an expert look at the state of the art 
Computer Music hardware and software technologies including 
lectures by Hal Chamberlin, Jim Eutterfield, Prof. Sterling 
Beckvvith and others. For further information contact; 

Margo Martin, 

1430 Trafalgar Fd., 

Oakville, Ontario, 

L6H 2L1, 

(416) 645-9430 ext 132. 



Tommorrov; is Here: The Impact of the Mew Technogy On 
Education. A one day International Conference of interest to 
Educators from Pre-school to Post Secondary levels under the 
auspices of the Hamilton Board of Education, the Ontario 
Hathem.atics Coordinators' Association and McMaster 
University. For further information contact; 



TOMMORROV? IS HERE, 
P.O. Box 558, 
Hamilton, Ontario, 



L8N 3L1 
15th-18th June 

The 1980 Summer CES (Consumer Electronics Showplace) 



McCormack Place, Chicago, II. The definitive dealer and 
trade show that covers the whole consumer electronics ball of 
wax,., audio, video, communication and computers. 

t'^pecial Note; 

The Transactor is a national periodical. As such we 
would like to keep readers abreast of major events or 
meetings of regional or local interest. If you are aware of 
such occurances please drop a note to The Transactor's editor 
at the following address; 

Editor, 

The Transactor, 

Commodore Business Machines Ltd., 

3370 Pharmacy Ave., 

Agincourt, Ontario, 

MIW 2K4 

(416) 499-4292 



Please provide as much lead time as possible {2 to 3 
months is a safe bet.) 

Interested in Mic ro-computer Networking 

PET Community members interested in forming computer 
bulletin board communication networks are asked to contact 
the Editor. The Transactor will regularly publish articles 
and software, act as a clearing centre or catalyst to further 
the establishment of this important facility. 

FLASH 1 FLA SH 1 FLASH 1 

Educators. .. .Commodore Canada is happy to announce that 
the three for two Pet offer is back. For a limited time.... 
to August 15, 1980 bonafide educational institutes can 
receive, from Commodore, one free Pet for every two they 
purchase from an authorized Commodore dealer. For further 
details contact your local dealer or the following address; 



Commodore Business Machines Ltd. 

3370 Pharmacy Ave., 

Agincourt , Ontario, 

MIW 2K4, 

(416) 499-4292 



Attention Programmers! 

Mr. Bill Twyman has recently been apointed Software 
Manager for Commodore Canada. To further develop the 
software department of the computer division, Bill has 
submitted the following: 



Dear Transactor Reader 

Many things - exciting things are happening 
here at Commodore. 

As all of you know, a PET won't do very much 
without software. As a result, we are soliciting 
saleable software which can be marketed by 
Commodore on a national basis. All you have to do 
is write it and we will handle the rest. No matter 
how specific the use might be, there are other PET 
users who would be interested. This is also a good 
way to make the PET pay for itself. 

Simply do the following: send me a working 
copy of the program plus written documentation. 
All submissions will be treated with the utmost 
confidentiality and will returned to you after 
evaluation. 

Any questions will gladly be answered. Please 
call me at: 

Commodore Business Machines 
416 499 4292 



Let's see what's out there! 



Bill Twyman 
Software Manager 



In put and Output from PET Machine Language Jim Butterfield 

Toronto 

Output to the screen is quite straightforward. Load the 
ASCII character into the A register; then call the routine at 
FFD2. Special characters, such as cursor movements, will be 
honoured in the usual way. 

The GET activity gives no trouble, either, except for 
one minor situation. To do a GET, call FFE4 and the 
character will appear in the A register. If you don't have a 
character available, the subroutine will return zero in the A 
register. Since you can't get an ASCII zero from the 
keyboard, recognize this as a "no-character" situation and 
arrange to deal with it as desired. 

INPUT is a little trickier. When you call FFCF for 
Input, you'll get one character back. This seems like a GET, 
but it's really quite different. The first time you call, it 
will prompt and get an input, transfering it via the screen 
in the usual way; then it will edit out leading and trailing 
spaces and quote marks. After doing all this work, it will 
deliver the first character to you. On subsequent calls, it 
will deliver following characters. When it has delivered the 
whole input, it will deliver a Return character to signal 
you've got it all. After that, it starts over. 

Beginners will be happier using the GET call. 

Peripheral Input/Qutput 

Surprisingly easy, once you have the above techniques 
mastered. 

Start by OPENing the file in BASIC, before you go to 
machine language. When you're ready to the actual activity, 
the machine language sequence is as follows: 

Load X with the logical file number; 

For INPUT or GET, call FFC6 to set the input 

channel; 

For output, call FFC9 to set the output channel; 

Now use you INPUT, GET, or output calls as 
described above; 

Finally, restore the normal input/output channels 
with a call to FFCC. Careful! This routine 
changes the A register to zero. 

V7ind up your program in BASIC by closing all files, as usual. 

VJhen you're INPUTting or GETting from an external 
device, keep an eye on the status word, ST (located at 020C 
in original ROM, or at 96 in 2.0 ROM). It will warn you when 
you reach the end of a input file. 

The above procedure isn't too hard, and it's likely to 
carry through to newer versions of ROM when they appear. 
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An Instrinq llhilitv for the 16/32K PET 

Have you ever wanted to program something like... 

HID$ ( A$, 10) = "Name, Address, etc " 

...well now you can! .. .thanks to another fabulous routine by Bill 
Maclean of BMB CompuScience, Hilton Ontario. The routine works 
only with PETs using the 2.0 ROM set. 



This is a little utility to allow a programmmer to change a 
substring within a main string. Its primary uses are manipulating 
data records in disk files and setting up formatted printer or 
screen outputs. It is called with the following command 

SyS 826,A$,B$,X 

This command string will cause the string A$ to be placed 
within string B$, starting at the 8th character. The A$,B$,and X 
are all variables. Any variables can be used. The programmer is 
responsible for assuring that the length of the main string is 
not exceeded. 

The machine language routine can be entered using the 
resident monitor and cursor editing the screen display. The code 
is completely relocatable and can be placed anywhere or relocated 
anywhere. The calling address (826 above) should be the address 
of the first byte of the program. 



PC IRQ SR AC XR YR SP 




. ; 0005 E62E 30 00 5E 04 F5 




.M 033A 0382 




. : 033A 20 F8 CD 20 9F CC AO 


00 


. ; 0342 Bl 44 85 00 C8 Bl 44 


85 


. : 034A 01 C8 Bl 44 85 02 20 


F8 


. : 0352 CD 20 9F CC AO 01 Bl 


44 


. : 035A 85 OF C8 Bl 44 85 10 


20 


. : 0362 F8 CD 20 9F CC 20 D2 


D6 


. : 036A A5 12 FO 03 4C 03 CE 


C6 


. : 0372 11 A5 OF 18 65 11 85 


OF 


. : 037A 90 02 E6 10 AO 00 Bl 


01 


. : 0382 91 OF C8 C4 00 DO F7 


60 
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PET as an TEEE-488 T.ogic Analyzer Jim Butterfield, Toronto 

If you'd like to see what's going on on the GPIB - and 
if you can borrow an extra PET and IEEE interface cable - 
this program will help. 

It shows the current status of four of the GPIB control 
lines, plus a log of the last nine characters transmitted on 
the bus. 

The four control lines are NRFD, NDAC, DAV and EOI. It 
would be nice to show ATN too, but I couldn't fit this in: 
it's detected in a rather odd way in the PET so that fitting 
it in is somewhat too tricky for this simple program. 

The last nine characters are shown in "screen format". 
This means that you'll have to do a little translation work 
to sort out what some of them mean. On the other hand, it 
allows you to see characters that otherwise wouldn't be 
printed. A carriage return, for example, shows up as a lower 
case m; this is a little confusing at the start, but you'll 
quickly get used to it and it's handy to see everything that 
goes through. Don't forget that original model PETs may show 
upper and lower case reversed. 

I had hoped to shov/ which characters were accompanied by 
the EOI signal. It turned out that time is critical - the 
bus works very fast - and that adding this feature would cut 
down the number of displayed characters from nine to five. I 
opted for the bigger count and dropped the EOI log feature. 

The high speed of the bus makes it difficult to watch 
the control lines in real time. When the "active" PET is 
exchanging information with disk or printer, everything is 
happening very fast, and the "logic analyzer" PET will show 
an amazing flurry of activity on the control lines. Only 
when the activity stops or hangs up will you be able to see 
the lines in their static conditions. 

You may use the program to chase down real GPIB 
problems, or just to gain insight on how the bus works. 
Either way, it will come in handy if you can borrow that 
extra PET unit. 



10 REM IEEE WATCH JIM EUTTERFIELH 

28 REM MftV 1980 

30 F0KE594e8 ..14: rr i \.\j - :^ nfl'./ hRFD NriflC EO I " : PR I HT " 

48 PRIHT"=1234567S9=W" 

50 S't'S1200 
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.: I&bt 


WHICH 


JIM EUTTERFIELD MflV/80 


110: 


04E0 










*= 


|:4E0 




120: 


04B0 








DFLRG 


= 


fEl 




130: 


04E0 








DNHSRV 


= 


fE2 




140: 


04E0 








EOISflV 


= 


$£3 




200 • 


04E0 


46 


El 




STRRT 


LSR 


DFLRG 




210 


04E2 


78 








SEI 






220' 


04E3 


flD 


12 


E8 


riRIH 


LDR 


fE812 




230 : 


04E6 


C:9 


EF 






CMP 


#$EF 




240 


04E8 


D0 


02 






Eh^E 


COHT 




250 


04Efi 


53 








CLI 






250- 


04EE 


60 








RTS 






290- 


04EC: 


flC 


10 


ES 


CONT 


LEV 


*E810 


;Eni 


290 


04EF 


an 


40 


E8 




LDH 


$E840 


;drv. nrfd.. HDRC 


300 


04C2 


RE 


20 


E8 




LDX 


$E820 


; DRTR 


310 


04C:5 


29 


CI 






RHD 


#$Ci 


:EXTRRCT BITS 


320 


04i::7 


C5 


B2 






CMP 


DHHSflV 




330 


0409 


ri0 


11 






ENE 


imn 




340 


04i::E 


98 








TVH 






350 


04CC 


29 


40 






RHD 


#$40 


iEKTRRCT EOI 


360 


04i::E 


0fl 








flSL 


R 




370 


04CF 


49 


R0 






EOR 


#$fl0 




3S0 


0411 1 


C5 


E3 




ECU 


CMP 


EOISflV 




390 


04113 


F0 


BE 






EEQ 


MAIN 




400 


04115 


35 


E3 






SIR 


EOISRV 




410 


04117 


811 


61 


80 




SIR 


$8061 




420 


04110 


110 


Ii7 






EHE 


MfllH 














iRCTIV 


I TV SEEH - UPDATE 


SCREEH 


430 


04I1C 


35 


E2 




DHH 


STH 


DHHSAV 




440 


04DE 


29 


80 






RND 


#$80 




450 


04E0 


49 


R0 






EOR 


#$fl0 




460 


04E2 


811 


52 


80 




STR 


$8052 




470 


04E5 


10 


ID 






EPL 


HDflV 


;N0 DRV SEEH 


500 


04E7 


fl4 


El 






LEV 


DFLRG 




510 


04E9 


30 


IB 






EMI 


DCONT 


.;DRV SEEH BEFORE 


520 


04EB 


85 


El 






STR 


DFLRG 




530 


04Eri 


85 


B2 






STR 


DHHSRV 




540 


04EF 


fl0 


00 






LEV 


#0 




550 


04F1 


E9 


fl2 


80 


SCROL 


LDR 


$S0fl2..V 




560 


04F4 


99 


fll 


80 




STR 


$80R1..V 




570 


04F7 


C8 








IHV 






580 


04F8 


C:0 


08 






CPV 


#8 




590 


04Ffl 


110 


F5 






EHE 


SCROL 




600 


04FC: 


SR 








TKR 






600 


04Fri 


49 


FF 






EOR 


#$FF 




600 


04FF 


sn 


R9 


80 




STR 


$S0R9 




610 


0502 


E0 


RF 






ECS 


MAIN 




640 


0504 


85 


El 




HDRV 


STR 


DFLRG 




650 


0506 


fl5 


E2 




nco.NT 


LDR 


DHHSRV 




SGQ 


0508 


29 


40 






RND 


#$40 


; ^-^RFD 


670 


050fl 


0fl 








RSL 


fl 




630 


050E 


49 


R0 






EOR 


#$R0 




€>9Q 


05011 


81! 


57 


80 




STR 


$3057 




700 


0510 


ns 


E2 






LDR 


DHHSRV 




710 


0512 


29 


01 






RHD 


#$1 


; HDRC 


720 


0514 


4H 








LSR 


fl 




730 


0515 


6fl 








ROR 


fl 




740 


0516 


49 


fl0 






EOR 


#$H0 




750 


0518 


8D 


5C 


80 




STR 


$3050 




760 


05 IE 


D0 


96 






EHE 


MRIH 





COMPUTER PHILOSOPHY W.T. Garbutt 

Mississauga, Ont. 



"It was the best of times, it was the worst of 
times, it was the age of wisdom, it was the age of 
foolishness, it was the epoch of belief, it was the 
epoch of incredulity, it was the season of Light , 
it was the winter of despair, we had everything 
before us, we had nothing before us, we were all 
going directly to Heaven, we were all going 
directly the other way — in short, the period was so 
much like the present period, that some of its 
noisiest authorities insisted on its being 
received, for good or for evil, in the superlative 
degree of comparison only." 

So began Charles Dickens in the famous introduction of 
the 18th Century setting for "A Tale of Two Cities" over a 
century ago! As with all great literature, the vision 
Dickens gives is perhaps centuries ahead of its time, in any 
event just as germane today as it was when Dickens first 
wrote it. Today Western civilization is on a precipice; the 
brink of a great leap forward for Humanity or a momentary or 
perhaps fatal fall. 

While less than one-sixth of the world's population 
consumes over 80% of world resources, hundreds of millions 
fight daily to survive on the remainder. And those who 
survive remember! 

For the fortunate few, the leap forward has begun. While 
scholars will argue for generations as to the precise time, 
(there probably is not one ) the race to the Moon will likely 
symbolize the start for many. None of the generation of the 
sixties will forget President Kennedy's proclamation to reach 
the Moon by the end of that decade ( nor will they likely 
forget his tragic and senseless death) . The last brief 
decade has witnessed a massive expansion of knowledge, the 
extent of which is beyond human comprehension. If all 
knowledge known were increased by the order of a magnitude in 
the 70 's, is there any doubt the increase will be two orders 
of magnitude this decade? Is there any certainty that this 
exponential knowledge explosion will quench humankinds' 
thirst by the 21st century? 

Yes. There is serious doubt if the knowledge does not 
bring with it a maturity, a compassion for fellow man, a 
sharing and a sacrifice . The dismal scenario has already 
been summarized by Mr. Dickens in the 18th century: war, 
pestilence, famine and destruction. And even with our 
present limited knowledge is there any doubt that a similar 
order of a magnitude, an exponential order of horror could 
soon be our legacy. 

There are disquieting signs that the future optimism, our 
traditional western belief in historical progress may be open 
to serious question. What Western civilization must guard 
against is introspection. Cultural isolation will almost 
certainly provide the impetus for an apocalypse. This 
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introspection can take many forms. Most familiar to the 
readers of The Transactor is the discipline of electronics 
and more particularly computers. 

Certainly this is a paradox. The computer, the single 
most important element in the recent knowledge explosion, the 
genie that could provide the key to the crucial 
inter-relationships in what at present is an incomprehensible 
mass of data, surely could not be viewed as retrenchment. On 
the contrary if a limited number of well educated and 
affluent people become preoccupied with the computer solely 
for their own personal intellectual gratification that is 
precisely what could happen. 

However it need not happen. What is required is an 
atmosphere of freedom, freedom of thought, expression, 
knowledge freely accessible to all as well as freedom from 
hunger and poverty. A vast educational challenge exists 
certainly as great as that witnessed in the race to the Moon. 
And the micro-computer is ideally suited as a central 
instrument in meeting the challenge. 

One of the major micro-computer applications will be 
communications. The micro-computer must become as 
universally used as the light bulb. It must be available to 
the 'outbacks' of civilization as well as the present temples 
of Western civilizations (Universities) . Computer literacy 
must become, with literacy, the prime objective of man after 
the basic survival improvements over hunger and poverty. No 
longer must language create communication barriers between 
nations, no longer may state bureaucracies hide knowledge 
clandestinely or inadvertently, no longer can corporations 
shape consumer habits through controlled ignorance. 

These freedoms of course carry risks. Change creates 
instability. Governments and citizens fear unbridled change 
especially anarchy. But the risks of not accepting the 
challenge is greater. We could lose all the significant 
advances that civilization to date has witnessed. The 
present world population could turn away from a Western 
tradition that failed to solve humankinds most immediate 
problems. 

The computer can become a central tool to manage today's 
knowledge, freeing man's creative and underutilized 
imagination, permitting him time to examine himself. 

Today Western civilization senses the future. One has 
only to witness the long lineups and multi-billion dollar box 
office receipts for 'science fiction' movies. Today's 
audiences are seeing implemented yesterday's dreams. And 
super realistic depictions of tomorrow. The audiences 
understand, as never before, the revolutionary technological 
concepts. Indeed they will accept nothing less. In many 
instances these special effects were only made possible with 
the aid of the computer. We must not permit this phenomenon 
to become a form of escapism. It is important to feed the 
scientific needs of our citizens. But we must also consider 
the equally important spiritual needs. eg. beliefs and 
values. 
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The computer can provide assistance to man. For every 
self-gratifying use there is equally a use that will help 
meet the challenges. From simple energy conservation methods 
such as controlling house temperature, or arranging car pools 
to complex techniques to improve work effiency computer uses 
abound to cut waste. 

A recent industry census indicated there are over 500,000 
computers in personal use today. Within two years personal 
ownership is projected to quintuple. Think of the immense 
number of applications such a user population can generate. 

As a member of the micro-computer community, ask yourself 
the question "What uses can I derive and implement that will 
aid, no matter how insignificant it may appear, in meeting 
the challenges of today?" Talk to fellow users , share your 
ideas and you will likely find yourself in the vanguard of 
tommor row's leaders. 
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A BOOK REVIEW Tom V7ojdylo 

SES (Computing) Inc. 

About a month ago I received a copy of "PET and the IEEE 
488 Bus (GPIB) " by Eugene Fisher and C. W. Jensen. I took an 
immediate liking to it because of the very readable approach 
the authors take to a potentially very dry technical subject. 
The use of diagrams, cartoons and timing sequences also 
enhances the reader's understanding of what is being 
discussed. 

Chapter one discusses systems and the developement of 
the IEEE STD 488 Bus. 

Chapter two describes each line of the GPIB, the basic 
bus structure, control lines and data bus lines. A handshake 
procedure with the PET as controller/talker and 
controller/listener is detailed. 

The fourth and fifth chapters get into programming the 
PET for the IEEE 488 Bus. There is extensive coverage of the 
BASIC statements and commands and how they are executed, with 
detailed diagrams of the timing sequences which are generated 
on the GPIB Bus. 

In the last three chapters, typical interfacing 
applications to standard and non-standard devices are 
explained. For example, there is information on printers 
which are usually non-standard devices and an HP Digital 
Voltmeter which has an IEEE STD 488 Bus. 

All the data in the book is related to both old and new 
ROMs and this is a very important feature. 

I found this book addresses PET users at all levels - 
from the hobbiest to the digital circuit designer; from the 
college student to the scientist. 

It is an excellent reference for community college 
instructors and students which help them both to understand 
the fundamentals of the IEEE 488 Bus. 

In today's rapidly changing technology, a book with such 
exaustive, up-to-date information is an excellent reference 
worth having in any PET user's library. 
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CRnSS - REFERENCE 



Jim Butterfield, Toronto 
also in Compute #4 



One of the handy things about the 2040 disk system is 
that it allows you to read programs - or write them, for that 
matter - as if they were data files. 

The possibilities are endless: you can analyze or 
cross-reference programs; renumber them; repack them into 
minimum number of lines deleting spaces, comments, etc.; or 
even create a program-writing program that is tailor-made for 
a particular job. 



This program does cross-referencing of 



a BASIC 



program. 
It's written in BASIC: that means that it won't run too fast 
(all those GET statements) but you can read what it's doing 
fairly easily. 

There are two types of cross-references normally needed 
for a BASIC program. One is the variable cross-reference: 
where do I use B$ ? The other is a line-number 
cross-reference: when do I go to line 360 ? CROSS-REF does 
either. An example of both types is shown - the program in 
this case did the cross-references of itself. 



CROSS REFERENCE - PROGRAM CROSS-REF 
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100 DIM A$(15) ,B${3) ,X${500) ,C(255) 

110 PRINT"CROSS-REF JIM BUTTERFIELD" 

120 Q$=CHR$(34) :S$=" " :B$ (1) =Q$:B$ (3 ) =CHR$ ( 58) 

130 INPUT"VARIABLES OR LINES" ; Z$ :C2=5 : IFASC( Z$) =76TKEKC2=6 

140 FORJ=lT0255:C(J)=4:NEXTJ:FORJ=48T057:C(J)=6:NEXTJ 

150 IFC2=5THENFORJ=65TO90:C(J)=5:NEXTJ:FORJ=36TC38:C(J)=7:KEXTJ:C(40)=8 

160 C{34)=1:C(143)=2:C(131)=3 

170 INPUT"PROGRAM NAME" ;P$ :0PEN1 , 8 ,3 , "0 : "+P$+" , P, R" 

180 GET#1,A$,B$:IFASC(B$)<>4THENCL0SE1:ST0P 

190 IFB=0GOTO240 

200 PRINTL$; :K=X:F0RJ=BT01STEP-1 :PRINT" ";A${J) ; :X$=A$(J) 

205 IFC2=6ANDLEN(X$)<5THENX$=" "+X$:GOTO205 

206 X$=X$+L$ 

210 IFX${K) >=X$THENX$(K+J)=X${K) :K=K-1 :GOTO210 

220 X$(K+J)=X$:NEXTJ:X=X+B: PRINT :B=0 

230 REM: GET NEXT LINE, TEST END 

240 GET#l,A$,B$:IFLEN(A$)+LEN(B$)=0GOTO530 

250 REM GET LINE NUMBER 

260 GET#1,A$:L=LEN(A$) : IFL=1THENL=ASC(A$) 

270 GET#1,A$:A=LEN(A$) : IFA=1THENA=ASC(A$) 

280 C=C2:C1=-1:L=A*256+L:L$=STR$(L) :IFLEN{L$) <6THENL$=LEFT$ { S$ ,6-LEri (L$) )+L$ 

290 REM GET BASIC STUFF 

300 GET#1,A$:A=LEN(A$) : IFA=1THENA=ASC(A$) 

310 C9=C(A) :IFC9>ClGOTO380 

320 K=0:IFB=0GOTO360 

330 FORJ=1TOB:IFA$(J)=M$GOT0370 

340 IFA$(J) <M$THENNEXTJ:K=B:GOTO360 

350 F0RK=BT0JSTEP-1:A$(K+1)=A$(K) :NEXTK 

360 B=B+1:A$(K+1)=M$ 

370 C=C2:C1=-1:M$="" 

380 IFC2=5GOTO420 

3 90 IFA=1370RA=13 80RA=1410RA=167THENC=6 :GOTO470 

400 IFA=44ORA=32GOTO470 

410 IFC9<>6TnENC=9:GOTO470 

420 IFC9=CTHENC=-1:C1=4 

430 IF06GOT0470 

440 IFC<0ANDC9>ClANDC9>6THENCl=C9:GOTO460 

450 IFC2=5THENIFLEN(M$) >2ORC>0GOTO470 

460 M$=M$+A$ 

470 ONC9+1GOTO190 ,4 80 , 480 ,480 :GOTO300 

480 B$=B$(C9) :C$="" 

490 GET#l,AS:IFA$=""GOTO190 

500 IFA$=B$GOTO300 

510 IFA$<>Q$GOTO490 

520 A$=B$:B$=C$:C$=A$:GOTO490 

530 CLOSEl : INPUT"PRINTER" ; Z$ 

540 C=3 : Z=6 : IFASC { Z$) =89THENC=4 : Z=12 

550 OPEN2,C:PRINT#2:PRINT#2, "CROSS REFERENCE - PROGRAM ";P$ 

560 X$="":F0RJ=1T0X:A$=X$(J) 

565 IFC2=6THENK=6:GOTO580 

570 F0RK=1T0LEN(A$) :IFHID${A$,K,1)<>" "THENNEXTK : STOP 

580 B$=LEFT$(A$,K-1) :C$=MID$ ( A$ ,K+1 ) : IFX$=B$GOTO600 

590 PRINT#2:y=0:X$=B$:PRINT#2,X$;LEFT$(S$,5-LEN(X$) ) ; 

600 Y=Y+l:IFY<ZGOTO620 

610 Y=1:PRINT#2:PRINT#2,S$; 

620 PRINT#2,LEFT$(S$,6-LEN(C$)) ;C$; 

630 NEXTJ:PRINT#2:CLOSE2 
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CROSS REFERENCE - PROGRAM CROSS-REF 
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Rea<3ing a PASIC Prggcam as ^ File 

To read a BASIC program, you must OPEN it as a file, 
using type P for PRG rather than S for SEQ. Line 170 of 
CROSS-REF does this. 

If you read a zero character from the program (that's 
CHR$(0), not ASCII zero which has a binary value of 48), the 
GET# command gives you a small problem: it will give you a 
null string instead of the CHR$(0) you might normally expect. 
You need to watch this condition and correct it where 
necessary: you'll see this type of coding in lines 260, 270 
and 300. 

The first thing to do when you OPEN the file is to get 
the first two bytes. These represent the program start 
address, and should be CHR$(1) and CHR$(4) for a normal BASIC 
program starting at hexadecimal 0401 (see line 180). 

Nov; you're ready to start work on a line of BASIC. The 
first two bytes are the forward chain. If they are both zero 
(null string) we have reached the end of the BASIC program; 
otherwise, we don't need them for this job (see line 240). 

Continuing on the BASIC line: the next pair of bytes 
represent the line number, coded in binary. We're likely to 
need this, so we calculate it as L (lines 260 and 280) and 
also create it's string equivalent, L$. We take an extra 
moment to right-justify the string by putting spaces at the 
front so that it will sort into proper numeric order. 

From this point on we are looking at the text of the 
BASIC line until we reach a zero which flags end-of-line. At 
that time v/e go back and grab the next line. 
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Petflile'3 Syntax finalYsis 

When digging out variables or line numbers, we have 
several jobs to do. As we look through the BASIC text, we 
must find out where the variable or line number starts. For 
a variable, that's an alphabetic character; for a line 
number, it's the preceeding keyword GOTO, GOSUB, THEN or RUN 
followed by an ASCII numeric. 

Once we've "aquired" the variable or line number, we 
must pick up its following characters and tack them on. For 
line numbers it's strictly numeric digits. For variables, 
things are more complex. Both alphabetic and numeric digits 
are allowed, but we should throw away all after the first two 
since GRUMP and GROAN are the same variable (GR) in PET 
BASIC. We must also pick up a type identifier - % for 
integer variables or $ for strings - if present. Finally, we 
have to spot the left bracket that tells us we have an array 
variable. 

To help us do this rather complex job, we construct a 
character type table. Each entry in the table represents an 
ASCII character, and classifies it according to its type. 
Numeric characters are type 6. If we're looking for 
variables, alphabetic characters are type 5, identifiers are 
type 7, and the left bracket is type 8. 

To help us in scanning the BASIC line, we define the 
end-of-line character as type 0; the quotation mark as type 
2; the REM token as type 3; and the DATA token as type 4. 

Every time we get a new character from BASIC, we get its 
type from table C as variable C9. If we're looking for a new 
variable or line number, we see if it matches C - alphabetic 
for variables, numeric for line numbers. Once we find the 
new item, we kick C out of range and start searching based on 
the value of CI. This mechanism means that we can search for 
a variable starting with an alphabetic, and then allow the 
variable to continue with alphabetics, numerics or whatever. 

To summarize variables in this area: A is the identity 
of the character we have obtained from the BASIC program, and 
C9 is its type. If we're searching, C is the type we are 
looking for; otherwise it's kicked out of range, to -1 or 9. 
CI tells us we're collecting characters and what type we're 
allowed to collect. C2 is out variables/line numbers flag; 
it tells us what we're looking for. M$ is the string we've 
assembled. 

The routine from 480 to 520 scans ahead to skip over 
strings in quotes and DATA and REM statements. 

CQllecting the Results 

For each line of the BASIC program we are analyzing, we 
collect and sort any items we find, eliminating duplicates. 
They are staged in array A$ in lines 320 to 370. 

When we're ready to start a new line, we add this table 
to our main results table, array X$, in lines 200 to 220. To 
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save sorting time, we merge these pre-sorted values into the 
main table. At this point, our data has the line number 
stuck on the end; this way, we're handling two values within 
a single array. 

Because the merging of the two tables must start at the 
top so that we can make room for the new items, the items are 
handled in reverse alphabetic order. We print this to the 
screen so that you can watch things working. At BASIC speed, 
this program can take quite a while to run; it's nice to 
confirm that the computer is doing something during this 
period. 

Final Output 

We finish the job starting at line 530. It's mostly a 
question of breaking the stuck-together strings apart again 
and then checking to see if we need to start a new line. 

Do Your Own Thing 

The size of array X$ determines hov/ large a program you 
can handle. The given value of 500 is about right for 16K 
machines; with 32K you can raise it to 1500 or so. 

If you're squeezed for space, change array C to an 
integer array C% . As you can see from the cross reference 
listing, you'll need to change lines 100, 140, 150, 160 and 
310 - see hov/ handy the program is ? 

As mentioned before, run time is slow. A machine 
language version - or even a BASIC program with machine 
language inserts - would speed things up dramatically. 

NOTE: Some ASCII printers may give double spaced output. If 
this is a problem the PRINT#2 statements in 590 and 610 
should be changed to PRINT#2 ,CHR$(13) ; . 



Petter Auto Repeat 
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David Berezov/ski of ASCII Computing, Thunder Bay 
Ontario, has submitted another repeat key program which might 
be used instead of the one printed in Transactor #7. 

REM RELCiCflTflELE FiUTO-REPERT EV. . . 

1 REM EflVID BEREZOWSKI 

2 REM ORIC-ilHflL CODE TflKEH FROM BEST OF TRflf^S. VOL 1 

:'; REM iipriflTED FOR HEW ROM FiHD PUT IHTO RELOCflTflELE FORM EV DflVIE EEREZ014SKI 
REM RELOCflTflELE FORMflT TAKEN FROM J. EUTTERFIELDS TRACE ROUTINE 

5 K=0 

10 PRINT'-HelTHIS PROGRAM LOCATES Sl=IUTO-REPEflT" IN" 

20 PRINT"flHV SIZE MEMORV THAT IS FITTED.-.K" 

:";0 I FPEEK '■ fiPifn-iO :■ =254THEHE=52 ■ D =0 : GOTO60 

40 IFPEEK(e5000><:>132THENPRINT"?? I DON-"T KNOW VOUR ROM ??"-EHri 

50 E= 1 34 ■ D=4 : K=3 ■ FOR J= 1 TOSS : REflDZ : HEKT J 

60 PR I NT "I SEE THAT VOU HAVE AN " .: 

70 IFE=134THEHPRINT" ORIGINAL" .: 

80 I FE=52THEHPR I NT " UPGRADE " ; 

90 PRINT" R M, " 

35 FORZ=1TO2000-NEKT 

100 DATA 162.. 3.. 181. .255.. 157.. 45.. 3.. 202.. 208 

101 DATA 243 ..56.. ISA.. 233 ..229.. 145.. 133.. 145 

102 DATA 96.. 165.. 166.. 201. .255.. 208.. 10.. 153 

103 DATA 0.. 133.. 15.. 169.. 48.. 133.. IS.. 208.. 19 

104 DATA 230.. 15.. 165.. IS.. 197,. 15.. 176.. 11 

105 DATA 169.. 6.. 133.. 16.. 162.. 255. 134.. 151 

1 06 DATA 232 .. 1 34 .. 1 5 .. 76 .. 46 .. 236 
150 REM************************ 
160 REM* END OF UPGRADE DATA * 
170 REM************************ 

200 DATA 162..3.. 181.. 255. 157.. 132 ..3.. 202 ..208 

201 DATA 248.. 56.. 1S9.. 233.. 237.. 26.. 2.. 141.. 2S.. 2 

202 DATA 96.. 173 ..35.. 2.. 201.. 255.. 208.. 13,. 1S9 

203 DATA 0.. 133.. 50.. 169.. 48.. 133.. 61.. 208.. 29 

204 DATA 230..S0.. 165..61.. 197.. 60.. 175.. 12 
c-rj-j L'H ; H i b9 .. t- .. i o-i- .. d 1 .. i t.,i .. c.-j-^ .• j. -f i .. ■.:. .. _ 
206 DATA 232 .. 1 34 . 60 .. 76 .. 1 33 .. 230 

1000 S2=PEEK'::E)+PEEK<E+1)*256 
1005 S1=S2-56-D 
1010 F0RJ=S1T0S2-1 
1 020 READ>^: ■ POKE J .. K ■ HE^ T J 
1030 S=INT<Sl/256) •T=S1-S*256 
1040 POKE0.. 76 • POKEl .. T+18+D/2 ' P0KE2.. S 
1050 P0KEE.T:P0KEE+1..S 
1 060 POKEE-4 .. T • POKEE-3 .. S 
1 1 30 PR I NT " :i!!l?J===flUTO-REPE AT==== " 
1140 PRIHT":?ITO ENABLE: SVS"S1 
1150 PR I NT "TO DISABLE : SVS"S1 

1160 PRINT":?J:HANGE speed WITH^ FuKE"S1+43-K"ILX 
1170 PRINT"CHANGE DELAV WITH: pnKE"Sl+29+K"il,. X <'<>10> 
1180 PRINT"KSTO EXPERIENCE THE FRUSTRATION FROM" 
1190 PRINT" *::EV-BnUNCE THAT ALL TRA3H-80 ONNERS" 
1200 PRINT" aiUST PUT UP WITH.. TRV POKING "31 ■r2■~H•■■::■ 
1210 PRINT" aUTH VALUES LESS THAN 5'" 

1220 PRIHT":!!HOTE:VOU MUST DISABLE RUTO REPEAT" 

1230 PR I NT "BEFORE USING THE ChSSE-^"^E" 
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THE 'UW7EDGE' — A TAPE APPEND AND RENUMBER PROGRAM 

Many PET users have only tape input for their system. 
(Until a fev; weeks ago, I was among that majority) . If you 
have often wanted to append a favourite subroutine, you may 
have been stymied. I use the input subroutine from Cursor #4 
('INP', Oct 1978) in many programs. You may have your own 
favourites, if only there was an easy way to append them. 

Another possibility might entail merging several short 
programs together, such as the Osborne & Associates: 'Some 
Common Basic Programs'. Individually, most are quite short, 
which could permit a 'menu-driven' composite program. 

I am sure that other applications may come to mind. 

Most of us have a Renumber program of some sort, whether 
it is in Machine Language, or as a Basic subroutine which is 
tacked on to the end. The main disadvantage is that the 
location in memory is fixed. 

Welcome to the Upgrade-ROM combination of the two, which 
offers: 

***Machine Language for speed of operation. 

***Full relocatability to anywhere in RAM. When run, 

'APPEND/RENUM' places itself in high memory and protects 

itself from intrusion by Basic. 

***The 'Unwedge' (or '<' key) attaches itself to the 

operating system. It may be used in the Direct Mode with a 

minimum of user input. 

***It is compatible with the Disk Wedge routine. Although the 

Append function works only with tape input, both Wedges may 

be active simultaneously. 

***The routine may be implemented and de-activated with the 

same 'SYS' command. 

***Uses only 771 bytes of memory. 

Bill Seller deserves the credit for nearly all the 
coding. In Pet User Notes (Vol I, #7 Nov/Dec 1978), he 
presented his 'PET Renumber 3.0' for Original ROM. This has 
been converted to Upgrade ROM and allows for user input of 
parameters. 

In our own Transactor (Vol 2, #3 July 1979), Bill 
presented the Append Wedge for Original ROM. In the same Pet 
User Notes issue, Jim Russo and Henry Chow gave us M7171. 
This is a high-monitor with merge capability for Original 
ROM. Features of both of these were converted to Upgrade ROM, 
and several additions made. 

TO USE THE PROGRAM; 

1. Copy the program listing. 

2. Save it immediately, since Machine Language routines have 
a nasty habit of crashing, with even the slightest error. 

3. "RUN" the program, and copy down the information which 
appears (after about 20 seconds) . 
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4. Save the Machine Language code with the ML Monitor if you 
wish to use it in the same memory location every time. 

5. Activate the routine with the given 'SYS' command. Since 
this has been made reversible, you may de-activate with the 
same call. (Don't save the program when the Unwedge is 
active) . 

6. Enter 'NEW to clear the Basic portion. You are nov; ready 
to use 'APPEND/RENUM' . 

TO RENUMBER A BASIC PROGRAM IN MEMORY: 

1. Clear the screen, and move the cursor 3/4 of the way down 
the screen. 

2. Enter the '<' key in the first column of a line, then hit 
the 'R' key. 

3. If you hit 'RETURN' now, the program will be renumbered, 
starting at 100, in steps of 10. (The default conditions). 

4. For a different starting point, simply enter that number 
next. Be careful that the final line number will not exceed 
63999. 

5. If you wish a different step size, enter a comma (','), 
then the new increment. Values up to 255 are acceptable. 

6. After you have hit 'RETURN', the message 'RENUMBERING' 
will be printed. The screen memory is used for storing the 
line numbers, so it will now show a variety of characters. 

7. When the cursor returns (5-20 seconds), the job is 
complete. All 'GOTO' , 'THEN' , 'GOSUB' and 'RUN' destinations 
will be changed. Any illegal or unreferenced line numbers 
will be numbered '65535' as a flag to the error. 

8. The screen memory will handle only about 500 lines. This 
shouldn't be a real limitation on most programs. 

TO APPEND ONE BASIC PROGRAM TO ANOTHER: 

1. Place the program to be appended in Cassette #1 drive. The 
first line number of this program must be larger than the 
last one currently in memory. Use the Renumber function to 
prepare the program tape, if necesssary, (This is the benefit 
of combining these two utilities) . 

2. Enter the '<' key in the first column of a screen line, 
then the letter 'A'. (You may enter the whole word, 'APPEND', 
but the program only checks the first letter). 

3. If you wish a specific file to be Appended from tape, 
enclose the file name in quotes, just as with a normal Load. 

4. If there is Machine Language after the end of Basic (of 
program in memory) , then the routine aborts with message: 
'?NOT ALL BASIC PROGRAM ERROR'. 

5. If the program on tape is Machine Language, then this 
program simply Loads normally, but does not Append. The same 
message is printed, but without the 'ERROR'. Be careful here 
because the the Basic pointers will have been changed. 

6. If the whole program will not fit in memory, the routine 
aborts. An 'OUT OF MEMORY ERROR' message will be printed. 

7. The message 'APPENDING' will be printed, while the routine 
searches for the correct program. 

8. The routine accounts for the differences between Original 
and Upgrade ROM. The Original ROM saved an extra byte after 
the end of Basic. 



I hope that this proves useful for you. I am particulary 
indebted to Jim Butterfield, for his counsel and patience 
through many elementary questions. 



David A. Hook 

58 Steel Street 

BARRIE, Ontario L4K 2E9 
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70 POKEI,.fl:HEftT ^_, _,^,^,^,,^, ,,,^.,„,«„.pp:,T.j--rTHB(20>^"?>----WITH: a-'SVS 



100 PRIHT-mCTIVflTE UR ^HNL-Ll af rcn^. r.^H.^-;_ ;; --„^^-_~^^ 
110 PRINT-SBHVE WITH MLH : '" : kRIN I ■■^l.b ..HkJ..^^;^ HrrD^^^^^ 

1 70 PR I NT " . " ; : FOR J= 1 T04 : K •;=>^ ^ :k= =:. a-^^.-. .' * ^ b ■ I r a.,..-3= i mL. .,-.■,-.■.» ■ 
180 PRIHTCHRf(K';+4o>: •rC;;,>.;r^c.!.jRri ^ _^ _^ ^^^^^_^ ^^.^^ -o.i^o 
10000 DfliHl73.. L7b7.. H7bfa.. IJJ.. o^..: 1 ^-f •■ ^L'-:'- \ ;2i, -rZ::X'"7i^H ^ -X 
10010 DflTH72 . 1 89 .. L748 .. H747 . 1 4y ■ 1 20 . Ui^ . i ..- . l. . .^ .■ n r .... ... 

[0015 DHTfl20i..60.-208.. y 



-i. li ir,-! " r:HP* ■' :''4 •' "..01" 






•' 1 ■'"■■' 



10020 DflTfl 165. 119.. 201. .0.240.. 8.; 104. 20^58^176. 23y^r;b. l^J 

10030 DflTR B>2X^\,f^^^^'^'7rc:.iil^Ai^^J:^<^^^oi^ 

10040 DflTfl 202.. 134.. 209.. 134. 1^7. i&y.^. l->-^^ 

1 0050 DflTfl 34 • 208 . 24b . 1 6b .^ j. 1 y ^^-^^ i_ ;_ - 1! ■.'.." .1 

1 0060 DflTfl 240 . 4 . 230 . 20y .■ 208 ■ ^^^^ . 82 . oo^:::.^ 

10070 DflTfl 209. 240. 8. 32^ 148. 244.. ;y8.o.^ re 

1R080 DflTfl 224. 1.208.23d. Ifco. r-^U^ 4 1._ 

i 00-^0 DflTfl 4.240.7.i62.0.32.Livy^hi^ _^ ^_ ^ __^ _^ ^^^ ^^ 

10100 DflTfl 233. 2. ^^t:^f:',;yj:^:\;^, 1 1'^?'' 210!255t 169: 6; 
10120 DflTfl 162. 1 . 32^L33^H82. 7b. 119. 1 

1 '> i ''\€-\ T!flTflLb2 . ribi:i . 1 : -' ■' ■"• ■—-' ■' '-~ ' '-'^~ ' '~~'~ ' '' ''' 



■>-z- flic. 






■40 



=; , d:' 



210.255 



1 1 40 liHTn 1 bb . 1 o J . -y^ . --* : ■^^■•;:;- -- • ^ . 
1 17 1 !^fi DflTfl 138.24. 1 y y .!;:■■"■■-■•- -'• - = ■ 



I ''\'-Z.- .. 2b-. 



2b7. 124. i 
3.141.124.2 






IH-i 






DflTfl 
T'fl;Tfl 



7Ci 



101T .. 

i>:iic:i?t TiRTfl 245.96. 13. (\ 






79., 71. 









.■ ■ . . ■■■ •_^ ^ 24fiTfi , 82 . 2 1 . 255 . 232 . 208 

, , , .-.,-, T. -.-r:- --...•! i=; 'ZiC _ 1 o . 7:-; , /4 , :-;q- . .-;,-;; .. oQ . f c . f o . oc. . do ,-.---■- ■ ■ 

1 fi i 90 TiflTfl 

10200 DflTfl 68.7 _ _ __ _^ _ ..^^, 

^:f..,^' -'l-l-rl^ -V H^4 ic" 104.fr;. , ix2.b8, 1^4,240.24.32. 112.8.240. ly. 1 
10230 DflTfl 249 '32. 115.200. 166. a 7. 134^66 



j^'-t 



;49.32. 115.200.72. 16t 



298. 12. 169. 100. 1; 



1 0240 DflTfl 1 33 . 63 . 1 1^:} . 



^0.1- 



i 'Ay-: 



^L.~il5.H-lli 



* - A _ ..._.. 

b2 . 169. 
^Wrm TiRTfl 240. 16. 32. L301 . H300. 170. l---;;; ■ ^ ;- - • —~ -^ ^.^ ^^^^ .-,.-, . H -I q , 1 ^t;; , 4^ 



hi 



10280 DflTfl 208.220.169.;; 

1 0800 DflTHL266. H2b"^. bi^. L2bb. ncJ. 
10310 DflTfl 240.5.202.208. 



,-,-j ij-cij i ~'Pi 



lyb.b 



40 . 2bb .. 1 b2 . H . 22 1 . i_2t.ii . r\c 



10320 DflTfl 



1 8340 DflTfl 1 04 . 145. 1 i 9 . ;ib2 . 2^0 . 2bb 
10350 DflTfl 0.144.248 
10360 DflTfl 169. 128. 13 
10370 DflTfl 133 



'i 1 . H'^0 . 104.1 33 . 128. 1 04 . 1 3b . 1 
"'■'" ■^ '"■'■"' ■^ ■ - • - ^^^^ 



160.0 



:::: . L i ii 



,32.11; 



"t .•" ■£ 

:--o . .1 



[ . 44 . 240 . i yi! . 
-:d. , 1 !^0 , 1 , 177 






, L 1 1 6 . H 1 1 5 . 208 .212 



- 1 \ c 



10430 DflTfl 42. 208. 2. 2b0. 






. Ho9 . 



1 .~H.- 



Drl ! HL 

"'■■j .~i T" .": 



..._ ~..::j , !.- 






3.. 32.L56.n55.240 



■..-, H ,.-cr i i 






•< .£■>=: 






;.!. j^ 



00 1 
0020 
0030 
0040 
0050 
OOfcO 

0070 

0080 
0090 

0095 

0100 

01 10 



M 1 -1 M 
^1 j. -+ K i 



;* flPPEND flrJD REHUMBER BASIC PROGRAMS * 
; * * 

■.* 1 -V DP'^-'Tp P. HnHK. 58 STEEL STREET * 



;* 

; * 



EriRRIE. OHTflRIO L4M 2Ey 
CflHfiDfl (705) 726-8126 



* 
* 



4;#*******#**************************** 



BASIC VflRIRBLES 



j;:,;tPTR 

MEMS I 2 
TXTTAE 



DE 
BE 

BE 



*77 
$828i 
f2H 
$34 



.;TEyTPO INTER 
.; INPUT BUFFER 
;8ThRT VARIABLE:; 
;TOP OF MEMORV 
; START OF BASIC 



iic 



:nes 



W-'VL-i 



r*iJpr'— "^ 



)E *70 






GET NEXT 


CHAR 


GET LAST 


CHAR 


FIK BASK 


; LINKS 


PERFORM ■ 


CLR- 


GET LINE 


# 



y:jyo 

8310 
■'■<■':'• hi 



3370 
0380 

0400 
0410 

0450 
0460 

0490 

0500 



0540 



;0P SYSTEM VhRIhELES 



Ffl 

VERCK 
FNLEN 
FNflBR 

i n r c i 

EflL 

LINNUM 
SCREEN 



.BE 


$B4 


.BE 


$91} 


.BE 


■$in 


.BE 


tUH 


.BE 


$36 


.BE 


f027H 


.BE 


$C9 


.BE 


*CH 


.BE 


$11 


.BE 


48000 



r nn 

MEMFUL 

AERT 

PPT 



:M ROUTINES 

.BE $F656 
.BE $F812 
.BE *F40A 
.BE *F494 
,EE $F5A6 
.BE *F56E 



Wc. 
BE 

Vt- 






$'r2bh 

$FFB2 
*C377 
BE $F3BB 
DE iF3E9 

J-it. 4.i..iL-i__-- 



; BE VICE NUMBER 
iLfiflE OR VERIFY " 
.; FILENAME LENGTH 



; FILENAME ABBRESS 

; STATUS BYTE 

.;TAPE#1 BUFFER 

lENB ABR LO 

;EHB ABR HI 

; PLACE FOR LINE # 

: START SCREEN MEMORY 



:-!^T 



mPE BUF PTR 



;TAPE MSG 

.; PRINT FILENAME 

..FINE SPECIFIC FILE 

.;FINB ANY FILE 

.;PRINT -NOT FOUNB-" 

.; MEMORY FULL ERROR 

.; ABORT I/O ACTIVITY 

.; PRINT CHAR 

; ISSUE ERROR MSG 

.; FINISH LOAB 

;LOhB FILE 

; FLOAT Fi BINARY NUMBER 

iMAKE ASCII 



7'003- 
7805- 



700H- 
700C- 
700t- 
700F-- 
7012- 
7014" 
7015- 
7018- 
7013- 
79 1 E- 
70 lE- 



flD 00 73 
85 34 
Hit 01 73 



H 2 ■-' 

Ticr TZ' 

r>J < '-• 

48 

BD FC 7 

4-=; 7ft 



CH 

ri0 Fl 
4C 79 

S0 



•' K} l\ — 

"■.':-J-~ -i „ 

7024- 



^02^- 
702ii- 
702D- 



C9 3L: 
Dy 0o 

fl5 77 
89 00 
F0 03 



89 3fl 
B0 EF 



,DE 100 
.BE 10 
.BE f5F 
.BE flF 
,BE $21 
.BE ±42 
,BE *3E 



USEE TO rOHVERT HUMBERT 
S88EEH " BUFFER 
ilORE STRRT LINE # 



0670 EEGHUM 
8680 IHGHUM 
0690 FfiGTO 
0700 IHDEHl 
0710 ihbe:k2 
0720 STEP 
0730 EEGIH 

0760 iFiBJUST MEMORV POINTERS hHB EX8HRHGE ■-UHWEBGE 

8770 .; 
0780 .; 

0800 
03 1 

0820 
0830 
yy40 

0850 
8870 ; 
0890 
0900 LOOP 



JhriL-t 



JJS 

, Bh $7000 

LBH MEriEHE_^ 

LBH MEMEHB+1 






POIH' 



iP WEBGE IN 



ij ay 



■■0 70 00 



7035 

703'^ 

703B- B0 EE 

703B 



F0 



52 



4 



!_■ JO 1 i 



340- 


h2 


01 


342- 


86 


B4 


344- 


Cfl 




345- 


86 


Bl 



0910 

0920 
0930 
0940 
0950 
0960 
0970 

0988 STRTS 

£i990 -■ 

0995 .■ CHECK 

1000 ; 

1010 ; 

1020 WEBGE 

1 030 
1040 



1838 .; 

1090 wUl00 

1100 WG200 

1110 

1120 

1130 .; 

1148 W 

1150 

1160 

1170 

1188 

1190 

1200 ; 
1210 ; 

1230 U 
1240 
1 250 



LBH *CHRGuri-2,= x 

PHR 

LBH WG„REST-1.. K 

PLH 

STH WG„REST-1.K 

EHE LOOP 

.IMP CLR-2 __ iR-Sti 

•-UNUEBGE- COMilHrni 



Mm 



•P:WC-Tj 



Jivi i cr-.o 



pHfl 


.; MR'- 


■BE 


LBR 


sTXT^ 


~i T" Vi 


,"■ f-.-i E". 


#L..Ei 


jf" 


EEQ 


WCMB 





;uMMfiNB ? 

:h column 1 

■■■ UHWEBGE ••■ 



J Li i 



MB 



588 



!..-i'ir W • 



JSR CHRGET 
Cpip #--fl 

EEQ WG300 
CMP #-'R 
EHE WG108 
TMP REHUM 



TX *Fh 

;Ty *PK{! 



,-■ ~ r-i ii if.-iriCD-- 
• DCKj! iMppp 



jQCCTI 



:#i 



ZERO FILEHflME LENGTH 



29 



:^047- 


86 


3D 


7043- 


H3 


02 


704E- 


85 


DE 


70411- 


20 


70 


7050- 


HH 




7051- 


F0 


i. ! 


7053- 


C3 


ii!2 


7055- 


D0 


F6 


7057- 


h6 


!' (' 



7053- ty 
705H- 86 Dfl 



705l- - 
7060- 

7064- 

7h68- 



20 
HM 

C3 22 

F0 04 

r-.~ r-; -i 

CO J.^ J. 

D0 F2 



^■1 Mi; 



70bH- 2t 
706D 
7070 
j 



■JO r 



lit 



li : 



7075- 
7077- 
7y7H— 
707C- 
707F- 

7084- 
7086- 

708H- 23 
708C- DO 



iiti 
2U 
h5 

F0 08 
20 34 



j-'i 



08 
6E 



20 fib 

FQ F8 

E0 01 

110 EE 

Q cr !-i XT 
' ' 10 

7F 






708E- h2 
7030- hD 



7033- 


C3 


04 


7035- 


F0 


07 


7037- 


h2 


00 


7033- 


i-!y 


IH 


703C- 


F0 


6C 


703E- 


20 


IH 


70H1- 


■"' O 




70R2- 


fl5 


2H 


70H4- 


E3 


02 


70H6- 


85 


2H 


70H8- 


fl5 


2E 


70flH- 


E3 


00 


70flr:- 


85 


2E 


70flE- 


m 


00 


70E0~ 


El 


2h 


70E2~ 


F0 


■i i". 
i O 



1 c I O 

1230 



::0t1 ; 

::20 wC100 



1350 
1360 

i '-'■— 'M 
i -jOjT-t 

1 400 



I, if 



■■0y 



1435 
1440 

•i H -i cr 

If -J 'J 
1463 

1430 IC210 

1500 

1510 

1520 WC215 



1540 



li 



■iti 



1560 WC220 
1570 Wl:250 



1580 




1530 


WC:270 


1600 




1610 




1620 




1630 




1670 


.; 


■f iC7^, 


.; 


1630 


WC280 



02 1630 

1700 



1710 
1720 
1730 
1740 
1750 HP 100 

< 'T'in::!:" 

1760 ; 

1770 
1780 
1730 

1800 

1810 
1820 
1330 
1840 
1850 



STX *VERCK 
LDH #$02 
STh *FHHr!R+l 



JSR CHRGET 

IRK 

EEQ iC210 

criP #■■■" 

ENE id 00 

LDK *TKTPTF 

INK 

STK *FHHDR 



.■nkur. ! 



Sci iU =LOHD 

.; POINT TO EhSIC input EUFF 

GET NEXT CHflRHCTER 

IS THIS THE LAST ENTRY 
START OF FILE NAME? 
NO— LOOP 
START FILE NAME ONE PLUS 

; STARTS HERE 

:FINIi END OF FILENAME 



EEQ 


WC210 


.THE END? 


CMP 


#••" 


;END QUOTE? 


EEQ 


WC210 




INC 


*FNLEN 


: NO— KEEP IT 


ENE 


WC200 


;hND loop 


JSR 


CiL-tL. 


,;SET TAPE BUFFER 


JSR 


CSTEl 


.GIVE TAPE MESSAGE 


JSR 


LD300 


iPRT FILENAME 


LDR 


*FNLEN 


iflNV FILE? 


EEQ 


WC250 


; VES 


JSR 


FflF 


.FIND A SPECIFIC FILE 


ENE 


NC270 


;3KIP IF FOUND 


JMP 


OP 160 


.NOT FOUND 


JSR 


FHH 


.;READ AHV FILE 


EEQ 


WC220 


.NOT FOUND? 


CPa 


#$01 




ENE 


IC215 


;TRV AGAIN 


LDfl 


*SRTUS 


.; CHECK FOR LOAD ERROR 



AND #^;;a0010000 

ENE WC300 ;IF ERROR 



LDK #$18 

LDR TAPE 1+2 
CMP #$04 
EEQ ftp 100 
LDK #$00 
JSR WRMSG 
EEQ WC230 
JSR WRMSG 



.PREPARE TO GIVE •■ APPENDING-" MSG 

;GET LOAD START ADDRESS 
;IS IT BASIC? 
; VES— BRANCH 

■ r-i — r .•■ L 

. UC ! |-i 

;PRT MSG 

; BRANCH ALWRVS 

;PRT MSG 



SEC ; SUBTRACT 
LDA *VARThE 
SEC #$0i2 
STA *VARTAE 
LDA *VARTAE+1 
SEC #$00 
STA *VARThE+1 
LDV #$00 



2 FROM START OF VARIABLES 



EEQ 



-l-Hbi 



ZERO THEN NO EKTRA M.L. AFTER 



flSIC 



70B4- 
70E7- 
70Efl- 
70BC- 
70EF- 
70C1- 
70C4- 

70Cb- 

70C9- 



20 10 71 1890 
20 £h F2 1900 
fls hT\ 1910 

20 D2 FF 1920 
fly 3F i93y 
20 D2 FF 1940 
fl2 01 iyS0 
20 Ifl 71 1960 
4C 77 C3 1970 
1980 
1 990 



•r- !- T: 



■';■ -P. i i'"IIl'i._C ■'.'.'■'• 



I INTER 



Jifl UQh 



JSR F 
ldh # 



JSR FK'i 

L..X.^-. iT-*'-...'! 
■JSR WRMSG 



JE ■■'rIOl HLL in 
nT Hi n?! E:."<KUI 



lilTI 



1995 .■ CHt. 

2000 ■ 

2005 .; 



URRENT PROGRFiil W-iS 



70l:U~ 


c^y 


Ic- 


.•■1 


cL'31'5 


- i -rt 


70CF- 


Bl 


2fl 




2020 




70111- 


m 


03 




2030 




70D3- 


20 


4 -I 

1 o 


71 


2048 
2045 
2050 
2055 
2060 
2070 


; Ch 


7006- 


HD 


7D 


02 


2080 


I'-iL'ii 


70D9- 


'"!!' C' 






2090 




70Dfl~ 


ED 


7E 


02 


2100 






_, -. 






■-. -i i M 




70Dri- 


nri 






;: J. 1 b 




70riE- 


fill 


7E 


K> ci. 


2120 




70E1~ 






l"V"' 


2130 




70E4- 


Ho 






2140 
2145 




70E5- 


h5 


2fl 




2150 




70E7- 


3"E' 






2 160 




70E8~ 


E9 


02 




2170 
















70EH- 


SB 


< ii 


ti'i:- 


d. i. O K.I 




70EIi- 


h5 


cLxi 




2190 




70EF- 


CZ^' 


00 




2200 




70F1- 


8D 


7C 


02 


2218 




70F4~ 


8H 






y v^kI 




70F5- 


-t :■"; 






2230 




i O 










70F6- 


6D 


7E 


02 


2240 




70F9- 


3D 


7D 


02 


2250 




70FC- 


98 






c- C-. b 'O 




70FD- 


6D 


i" L- 


02 


■jC-jL { L^ 




__ . -. — 


.— .T'. 


-_,(.-. 


.-;, .-. 


■",-■"; t'"i;"j 




•■■ 1 00- 


Oli 


i Q 


K:-cL 


^- '-'•••"■-■ 




7103- 


C5 


■"■ s^" 




2290 




7105- 


90 


03 




2300 





E:-i 



.BRRHCi-l IF 



i. J H B B R b c^ '■-■ r i. J k n !■- r c i i .u ■::■ '..: lj r-. '.-■ t. 



~-r'El+o 

".^Ol- i 4.. i 



.i.!ri 



"WF-'F i +•:" 



..CflLC HPPEND beg; 



EUi :MEN 



LBn *vHRThE+J 



ox;-...- w-f-yt 



Th 



i Vh 



*! L_ y-\ ■_. i 



BYTE: 






i-l ■ -J- J '-. 



2310 



•■■h1.U Ll,-:i 






VM 






2325 .; CONTINUE WITH LOfiD OF 



■ -■■■! = 



.^.JJi.JFJ 



.MliJ 











i4Dy 


.• 










— . J ••" .-j 












.ii^btl 












2500 


; 


7110- 


20 


13 


71 


2510 


IHVfiR; 


7113- 


hb 


2H 




2520 


INVAR 


ER 












7115- 


De 


02 




2538 




7117- 


E6 


2E 




2540 




7119- 


60 






2550 
2560 
2570 
25S0 


IRTS 


711fl- 


ED 


26 


71 


2590 


WRMSG 


711D- 


F0 


06 




26U0 




711F- 


20 


D2 


FF 


2618 




7122- 


E8 






2620 




7123- 


D0 


F5 




2630 




7125- 


60 






2640 
2650 


WRTo 


7126- 


011 


4E 


A r~ 


2680 


MSGl 


7129- 


54 


20 


41 






712C- 


4C 


4C 


20 






712F- 


42 


41 


53 






7132- 


49 


43 


20 






7135- 


50 


52 


4F 






7138- 


•f '~^ 


C ~i 


••t 4 






•H- r* 


Dii. 


-i-i 






713E- 


41! 


20 


00 






713E- 


01! 


41 


50 


2690 




7141- 


50 


45 


4E 






7144- 


44 


49 


4E 






7147- 


47 


20 


00 






714H- 


9D 


52 


45 


2700 




71411- 


4E 


55 


4D 






7150- 


42 


45 


52 






7153- 


49 


4E 


47 






7156- 


0D 


00 









:705 
:710 



-TsR IHVflR ;EUMP TWICE 

im *VHRTFIE ; IH!::REMENT START OF VflRIfiELES F'OII 

ENE IRTS 

INC .*VflRTflB+l 

K i O 



LDR MSG1..X .; OUTPUT MESSAGE 

EEQ WRTS 
J3P pi;. J 

INK 

ENE hRMSG 

RTS 

.EV *0D •HOT ALL ERSIC PROGRAM -' $m 



EV *0D -APPENDING •- $08 



EV t0D 



"REf- 



NUMBERING-" *8Ii $88 



; RENUMBER BASIC PROGRAM 



'158- 20 70 00 
■15B- F0 21 
'151!- E0 F9 
'15F- 20 73 CB 
'162- 48 
"163- A6 
'165- 
'167- 



11 

•i ■■"-. 

•- r- 
■Z'C 



ic-y 



'-i— 



A4 
'36 
84 
'16B- 68 
'16C- F0 



716E- 20 70 08 
7171- F8 13 
7173- B0 h9 
7175- 20 (-3 CB 
7178- A6 11 



■ i !■■ L 



D0 0C 



2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2908 
2910 
2915 
2920 
2930 
2940 
2950 
2960 

2980 



RENUM 



EEQ 
ECS 
JSR 
PHR 
LDK 
LEV 



O i T 

PLA 
EEQ 



EEQ 
ECS 



CHRGET ;GET CHAR 

START .DEFAULT IF NO NUMBER ENTERED 

RENUM ;SPAN BLANKS 

LINGET ;GET NUMBER AND CONVERT IN -LINNU 

jKEEP LAST CHAR 
*LINNUM .;L0 START # 
*LINNUM+1 ;HI START # 
*BEGIN ;SAVE START 
*BEGIN+1 ;LINE NUMBER 

; RESTORE LAST CHAR 



DFLT.INC 

CHRGET 
DFLT.INC 

I NCR 

LINGET 

*LINNUM 

*STEP 

COPNUM 



.; IF NO MORE CHARS 

GET ANOTHER 

;IF NO MORE 
WAIT FOR NUMBERS 
GET NUMBER AND CONVERT IN -LINNl 
GET LO INCREMENT 
KEEP IT 
BRANCH hLWAVS 



717E- fl9 64 
ER= 1 90 
71S0- 85 .3E 
71S2- h9 00 
7184- 85 3F 
7186- f\9 0fl 
7188- 85 42 



718fl- 
7i8C- 



R2 24 
20 Ifi 



718F 

7191- 

7193- 

7195- 

7197- 

7199- 

719B- 

719D- 

719F- 

71fl2- 

71fl4- 

71fl6- 

71fl8- 

71flB- 

71Rri- 

71flE- 

71E0- 

71E2- 

71E4- 

71E6- 

71E9- 

71Efl- 

71EB- 

71BD- 

71EF- 

71i::l- 

71C:4- 

71C6- 
71C8- 
71C9- 
71CE- 
71CC- 
71C:E- 
71110- 
71II2- 
71114- 



- H'J 



€■•_' 

fl9 
85 
fl5 
85 
fi5 
85 
20 

fl0 

El 
91 
E9 
91 



FE 
21 
7F 



IF 
29 
20 
C4 
03 
IF 
21 
5C: 
IF 



00 



C0 01 

D0 F2 
El IF 
F0 10 
20 E4 7 
HH 

in IF 

85 IF 

86 20 
20 CD 7 
D0 DC 

H9 FF 

C8 
91 21 

91 21 

flS 28 

t'-j i'' (' 

h5 29 

85 78 



7iD6- D0 03 

7 IDS- 20 EE 72 
7iDB- 20 EE 72 
7 IDE- D0 03 

71E0- 4C 39 C4 



DFLT.IHC 



COPNUM 



COP 1 
COP20 



:0yu :• 

• K-HiJ-J .' 

1010 START 

3020 
3030 
3040 
3050 
3060 
3065 
3070 
3075 
3080 
3090 

3100 

3110 

3120 

3130 

3140 

3150 

3 1 60 

3170 

3180 

3 1 90 

3200 

3210 

3220 

3230 

3235 

3240 

3250 

3260 

3270 

32S0 

3290 

3300 

3310 

3320 

3330 

3340 

3350 

3360 

3370 

3380 

339£i 

3400 

3410 

3420 

3430 REHH 

3440 

3450 

3460 

■„' ""l" C' U .i 

3490 RN10 
3500 RNi5 
3510 
3515 J 



P80 



LDfl #L..EEGHUH 



.: DEFAULT START I HG LINE HUME 



ST A *EEGIN 

LDfl #H..EEGHUM 

STA *EEGIN+1 

LDR tlHCHUn ..DEFAULT IHCREMEHT =16 

STA *STEP 



LDK 
JSR 

LDA 
STA 
LDA 
STA 
LDA 
STA 
LDfl 
STA 
JSR 
LDV 
LDA 
STA 
LDA 
STA 

i"CT 

CPV 
EHE 
LDA 
EEQ 
JSR 
TRM 

rir-i I 

LDA 
STA 

JSR 

T.L ir- 

r.-nz. 
LDA 

T L M ! 

J-iiT 

STA 
It-N 
STA 
LDA 
STA 
LDA 
S I A 
EHE 

JSR 

T --ri 



#*24 
WRMSt 



.PREPARE FOR •REHUMEERING-^ MSG 



;USE SCREEN AS BUFFER 



#L..SCREEH-2 
*INDEX2 
#H..SCREEN-2 
*IHDEK2+1 

*t:kttae ; beginning of tekt 

*INDEK1 

*TXTTAB+i 

*INDEX1+1 

SETFAC ;SET NEW # COUNTER 

#3 

<iNDE>a>..v ;get line number 

(INDEX2).V ;SAVE IT 
FACT0-3..V ;GET NEW NUMBER 
(INDE>a>..V ; REPLACE OLD 

#1 ; POINT AT LINK? 
COP20 i NO — LOOr 
'•. i lil'CA 1 .' .■ T .. L-rio I i_ i i-ic: : 
!';np80 , VES' — DONE 
EUPX2 ; NO— BUMP POINTER 2 
;SHVE HI LINK 

aNDEyi>..v ;GET LO 

*INDEK1 ;MhKE new POINTER 

*INDEK1+1 

ADDSTP iCALC NEW # 



COP 1 
#$FF 

(INDEK;; 



; BRANCH ALWAVS 

;MHKE LAST BIGGEST 

V .: FINISH IN BUFFER 



(INDEa2).. V 

*tkttae ; start chrget at source 
*t;ktptr 

*T:KTTRE-f-l 
*TyTPTR+l 
RN15 ;G1 



GRAB 
GRAB 



ENE 

JMP FINI 



-■! r Li T i T i. H.'* 

UC i nx Liii!-. 

or-., if- i_i_i i_ii-IK 

SKIP IF <>0 

ii U H L — r l',-< L I ri K b 
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■-Ito- 


izi'O 


tC 1 


7iEb- 


"'Tl 


EE 7 


?lEy" 


20 


EE 7 


71EC- 


HH 




71Eri- 


F0 


1——' 


71EF- 


H2 


04 


71Fi- 


DD 


F8 7 


71F4- 


F0 


05 


71F6-- 


Cfl 




71F7- 


110 


r o 


7iF9- 


r i-J 


EE 



-7 1 Cp_ 
i J. i i' 

71 rii— 

r"' i::.' tl' i "~ 

7204- 
7k.'i-Jb- 



ho 

4y 
20 
E0 



,->i 



08 

00 



01 



yy 



720D- 85 
7^210- 85 

-701 ;:.'_ pjf-i 

721b- ED 01 

7213- F0 e-r 

i''2l£'— ^'-' 

7210- 20 70 
72 IF- 90 03 
7221- 20 74 
7224- b'd 

7228~ D0 EC 



::h- 20 .^-0 

:;D- E0 08 

IF- 20 96 7 

:i2- 20 76 

55- y0 F8 

iS~ F0 C0 

iB- D0 FiF 



tiy 



535 


j 


540 


RH20 


550 




i^-KJ-J 


RH30 


570 


RN35 


580 




5y0 


.; 


600 


RH40 


610 


RH45 


620 




630 




fa4U 




650 




655 


.; 


660 


RH50 



:,--iy 



:;.-y0 



r:.riot.i 



:iS80 

■j c Q c: 

5900 RH70 

:;y30 
5940 
5950 RH80 

!; C4 :C C-i 

5970 



J or 



npFlE .SKIP LO LINE # 

grhe ;skip hi line # 
HpflE ;GET ehsic source 

;EHD OF LINE? 
RH10 ;VES — LOOP 



CMP 
IlF;:; 



#4 

I UKEH" 1 



PPfi Pn30 



„ilH 

-HH 

DFl 

"HH 



* I A i r i r-. 



i„- !~i n. '™^ C. I 

Rhi35 

i T -. !;"i T 

FiHHUh 



JOK FOR 4 TOKENS 

.; IF FOUND 

.KEEP LOOKING 
.;NOT FOUND 

.iSRVE POINTER 



CHECK TO SEE IF fl NUMBER IS NEX1 

:VES— riHKE EINHRV 
;FIND OLD.. MhKE NEW 



r i_n 
STfl 
PLH 
•-• I n 

! rt-. I 
L-i.' T 

LT\K 



.iMOVE PTR T 
*TKTPTR+1 



NUMEER SThR" 



#0 

#0 

$0101. K 



;SET IHDEK 

.;GET ASCII NEW NUMBER 



;IS OLD CHhRhCTER flSCIT 
.iVES— SKIP TO REPLhCE 
;H0 HOVE UP TE>::T 

;GET SHvED NlW # 

TKTPTR).. V ; REPLHCE OLD # 



thKbc. i 

— :i..i.^c::; 
MHs^'i IP 



ECU 

UHr 

M.' Iw '-•. 

p'-.jC 



r:.riob 



L-HRUu 1 



;BRhNCH hLnhV; 



,;VES— ■MOVE DOWN 1 



. I 



~^3T NEW CHFiR 



IS IT 'ON-? 

T'T, r.i— r-T- 
■■J.1I.J Ki:.-;' i 

JO — LOOP 



't'L 



585 'FIND OLD NUMEER IN BUFFER. GENERfil 
i^90 . F'U i ii Ifi HoCil. LNii W 1 TH ''yy- 



NEW LINE # 



-J. fc- : L- 5 1. 



'■■"23 U- 


20 


C4 f; 


l -rdiy 


^240- 


fly 


00 


4020 


" -. A --' 

c.4i.— 




21 


4030 


■^'244- 


h9 


80 


4040 


^246- 


8u 


^y^ 


40D0 




H0 


01 


4060 


■^24H- 


Ti -; 
L'i 


21 


4070 



: NNUH 



ii Ci 



J 8K oE i h flu 
LDfl #L.. SCREEN 
STfl *INDEy2 
LDfl #H. SCREEN 
Sifl *INiiE:K2^1 

\ — t i ii -i 

U.1." T It I 

LDH (INDEK2>.V 
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P'24r:- C5 12 4086 CMP *LIHHUM+1 

?'24E- F0 15 4090 BEQ !-N50 

p-^'=ifl- r;9 FF 4100 CMP #*FF 

7252- 110 18 4110 EHE FHt.y__ 

7254- 85 5F 4120 -• i A *FHL_i_U 

'■72^,f.- p.i, 5E 4130 STfl *FflCnj-l 

^5sFi- Fi5 5E 4140 Fr-120 LDFl *FHCiO~l 

^S'^fl- ft'5 F.fi 4150 STfl *FflCTO+l 

4160 LUX #*90 



H2 90 



725E- 38 4170 SEU 

^o^p_ OR =;-; r,B 4180 -JSR FLOflTC ..^LUHi # 

7262- 4C ii DC 4190 -JMP FOUT ..CONVERT TO HoU 

42flH .: 

7265- 88 4210 FN50 BEV 

72fifi- El 21 4220 LDFi (IHDEK2>.V 

72fifi- n5 11 4230 CMP *LIHNUr1 

72bfl- F0 EC 4240 EEU ^N20 

72hC- 20 CD 72 4250 FH60 JSR HiiLbTP 

72fiF- 2Pi E4 72 4260 -J^R EUPXk: 

7272- DO D4 4270 EHE FN 10 

4280 ; 

4290 ;MOVE TEXT UP ONE EVTE 
4300 :• 

4310 MOVUP JSR SETPTR 

4320 Miil0 LDV #0 

4330 LDH (IHDEX1>..V 

4340 I ,N"t 

4350 STFi <INDEK1>..V 

' 436fi JSR CMPX 

437fi EHE MU40 

4380 INC .*VflRTflB 

439f^ ENE riU20 

4400 IHC *VHRTflE+i 

4410 MU20 DEV 

4420 RTS 
4430 .: 

4440 riU40 LDV *INDEX1 

4450 EHE MU60 

4460 DEC *INDEX1+1 

4470 MUfiM DEC *IHDEX1 

> 4480 JMP MU10 
4485 ; 
4490 ; 

4495 ;MOVE TEXT DOWN ONE BVTE 
4500 :• 
4510 .; 

i 4520 MOVDWH JSR SETPTK 

4530 MD10 LDV #1 

4540 LDfl (IHDEX2>..V 

4550 DEV 

4Pihfi STfl ( I NDEXii: > .. V 

y 4570 JSR CMPX 

4580 EEQ MD30 

> 459m MD20 JSR EUPXl 
4600 ENE MD10_ 
4610 MD30 LDV *VHR I flE 
4620 ENE nDSt; 
4630 DEC *VHRTflE+l 



7274- 


20 


E3 


7277- 


fl0 


00 


7279- 


El 


IF 


727B- 


C8 




727C- 


91 


IF 


727E- 


20 


D9 


7281- 


D0 


08 


(' ciyj— 


E6 


2fl 


7285- 


D0 


02 


7287- 


E6 


2E 


7289- 


88 




728fl- 


60 




728E- 


fl4 


IF 


728D- 


D0 


02 


728F- 


C6 


20 


7291- 


C6 


IF 


7293- 


4C 


i' i' 



7296- 


20 


B3 


7299- 


fl0 


01 


729E- 


El 


21 


729D- 


■D.;. 




729E- 


91 


21 


72fl0- 


20 


D9 


72h3- 


F0 


05 


1 c:n-j 


20 


E7 


1 ii.n._. 


D0 


EF 


72Hfl- 


H4 


2fl 


72HC- 


D0 


02 


72hE~ 


C6 


2E 



72E2-" 6 



4t.-rU 



MD40 



DEC *VflRTHE 



■■:. i O 






!-''iilE7~' h'5 udh 

7''ii!EE- h5 !'■■/ 
7iiED~ ys Zl 



-tc 


C 


._J 








-ft 


o 


j' 


4t 


'- 


(T-i 


.-! -r 


s 


M 


J ■— ] 


-i 


-J 


■i-r' 


I 


i-_! 


47 


2 







'd 




- -. 


- 


i"j 


-ii- 


■t 


o 


J — 


^~ 


— 


4i"' 


~i 


y} 




6 





.•! ~;r 


._- 


.-_, 




.' 


^1' 


J — 


™.( 


c 


-t >■' 


i" 


"• 


.■i -? 


.- 


-"j 


-f i 


ir* 


Li 



poimtef;:s for text moves 



;;ETPTR LUh *VhRThE 
STh * INDEX! 
LDH *VhRThE+1 
STh *INDEK1-1 
LDFi *t;:<tptr 

STh *IHDEX2 
LEH ^TftTPTR-i-l 
SiH *IHiiErt2+l 



"■' FhCTO & fhc 



-1 TO iSEHERHTE HEW LINE NUMEER: 



r'2L-b~ h-j ol~ 



-tCi tJ 






LDFi *BEGIH 

SiH *FFiClU~l 

LDH fEEGIii-f-l 

STfl *FHCTO 






i''2rit'"" Efc" Oi" 



i' dby— tl-J Ir 

72DE- C5 21 
72DD- D0 04 

r c:j.'r - n-j c.U 
72hl- L-i> 22 



4865 
4870 
4875 
4380 

4900 
4910 
4920 

4940 
4950 
4955 
4960 
4965 
4970 

4990 

J000 

•j0 1 y 
5020 
5030 






QTiV-OTl 



ARTS 



LDH 


*fhcto- 


-1 


CLC 






ADC 


.*STEP 




STH 


*FFiCTO- 


-1 


ECC 


FiRTS 




INC 


*FFiCTu 




RTS 







ZERO FLAG IF INDE>a = IHDEK2 



LDH * INDEX! 
CMP *IHDEK2 
ENE CRTS 
LDH *INDEK!+1 
CMP *INiit.X2+! 



.■r. i 






T kjr-vPMC-'MTC TKjrrCv'-":- ■■■ i QE 



7yF4- 



ja i 'J £• 



!P' 



-J --'r--. hut .-■-. J. 

INC ^INDEKi: 

ENE ERTS 

TKir *Ti-jTjry-: 



■' -I- 1 



3G 











~ i - — 


■ '"•■rrT a {■ 




-,,-..-i ---i-^r, ,-. ,--rr ■■■■■ T-crpfi CI Oi 










■JIO-J 


J ■'..:■ c i r1 !. 




i i". t i -„■ i i— . : ■- C-: -' L.. i i__ :^ : •. ■_- i i— i i ■- 










5140 


.; 














5145 


j 






F2EE-- 


H0 


00 




5150 


GRFiE 




LDV #0 


?2F0- 


CO 






5160 






INC *t^^:tptr 


72F2- 


DO 


02 




5170 






ENE GR10 


72F4- 


Eb 


{ C' 




5180 






INC *TKTPTR^1 


72F6- 


El 


77 




5190 


OR 10 




LDH (TyTPTR)..V 


72F8- 


60 






5200 
5205 
5210 






RTS 










5215 


; TOKENS 


F 


OR ■■■GOTO-' ■'RUN-' ^GOSUE 










=]■:•-:■ fi 
















■-' (_ fc— w 


.• 






72Fy- 


89 


8H 


8D 


5240 


TOKEN 




.EV $89 $8H :fSD $H7 


72FC~ 


H7 















5242 .: 
5245 .; 
5250 ; JUMP flDDRhSS FOR UNNEiiGE 



5255 



'2FD- 4C 00 00 5260 WG.REST . E V f4C $80 



7300- 



■Jii-Oii 



5270 ;STORhGE FOR END Oh MEMORV 

.DS 2 



Jci ( 



5280 MEriEND 
5290 ; 



LHEEL FILE: [ / = EKTERNflL 1 



/TKTPTR=0077 

/MEMS I 2=0034 

/CHPGO i =0076 

7LINGET=C873 

/FNLEN=00D1 

.•••■ThPE1=027h 

/LINNUM=0011 

.■■■•CSTEl=F8i2 

/FFiH=F5H6 

/hERT=F26E 

/C0NTLD=F3DD 

/rOUi=DCE9 

.■■•'FFlCTO=00"'F' 

.•■•'STEP=0042 

STRTS=70iE 

NG200=702E 

WC100=r"04D 

WC2 15=7073 

WC270=7084 

F'T400=70CC 

WC300=710D 

IRTS=71iy 

r-1SGl=7l26 

SThRT=717E 

COP10=71R2 

RENN=7iCE 

RN20=flE3 



,'EUF=020O 

/TKTTflE=0028 

/FINI=C439 

7FR=00D4 

.■•'FNhDR=80DH 

/EhL=00C9 

.■'SCREEN=8000 

.■uD300=F40H 

/'OP160=F56E 

/PRT=FFD2 

.•■■LD16=F3E9 

/BEGHUM=0064 

/INDEKi=001F 

/EEGIN=0U3E 

i.'JEDGE=701F 

iJCME=i''U32 

14C220=707C 
IC280=70SE 

INVHR2=71i0 
'1 1 q 



,H^ 



•■■"VhR'I HE=002H 



JHRGE 



--l-n-1: 





J! 


RENU 


1 


DFLT 


. 


U-Ur «=:. 


"1 


RHIO 


— 


Pm--:m 


-; 



'lil^ 



■'CLR= 


C577 




■■VERC 


:K=009D 




•■■SfiTL 


iS=0096 




•■EflH= 


-00CFi 




■■■ZZiL = 


=Fb56 




■•ThF= 


=F494 




•■T1EMFUL=C35 




, p. (.- _ . 


isr.j =}-■•-: .■ 


"} 


■• cn.r.i 




; •_* '_' '— ■ •—■ 1 




.■ ~~ ! i": i" 


•.-r.-_r.- cr 


c; 


■ ri_un 1 i_--j.ir:-_ 


.J 


■ iHCr 


■iUM=006 


H 


■■'INDE/2=0G2 


1 


;■"■ "; H: - 


= 70GF 




^GlOi: 


J=>-02H 




.^^330! 


3=7040 




! :~- "l -i : 


:: — "" i"^ jjj Q 






_■ • j "_= ■—• 5 i 




'■ i""- ■■": niT : 


„ __ _, _, -_- 




r'-i U- d ■_■ ' 


J— i-'bi'r 




SP10 


3=709E 




i--! L- w ^ 


0=710fl 




INVh 


";:=7113 




; , : p T C' 


~r. ^ -, in." 






" i' X c^-~.' 




•;■ ■, >,-. t-: 


— ^ i — r— 




1 riL-K 


"" r I bin 




::UPH 


jM=7i8F 


"1 


:"■■■ ■~'-^C.--Z' 


3=7 1C6 




p^-j-j •--: 


... ~ -\ T: l> 
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RH40=^?1EF 

F;:H60=7216 

RH?5=?22:B 

FIHHUM=723:D 

h!-i5e=726^ 

NU 10=72?? 

MU60=72yl 

Mri20=72Fi5 

riIi40=72E2 

flDDSTP=72CD 

C:RTS=72E3 

BRTS=72ED 

TuKEH=72Fy 



r-.vii o— i c.c.r 

>-Hiy=!-'24y 

M5vriWH=7296 






;hh 



r i V: — r ci h ■ 



- r. - 



J— i' ciL'O 

.'6 I =■ i'2rii 



KH i'U~- "■■'22H 

i i'.j'-rt.' — 1 c'--tf 

riD 10=7299 

SETFFiC=72C4 

BUPKi=72E7 
'6 

'300 



'0U0U.. 7jy. 



RESTORE DA TA Line Program Paul Barnes 

Deseronto, Ontario 

Executing the RESTORi: coininand causes the next READ to 
occur at the very first DATA element in your program. This 
subroutine can be used to RESTORE the DATA line pointer at a 
line other than the first. 

It doesn't matter if you don't give the number of the 
line that has the "DATA" keyword in it that you want to start 
at, as long as it is past previous DATA statements so that 
the next data to be read will be the one desired. 

4 REM ******************************* 

5 REM *** RESTORE DATA LINE PGM *** 

6 REM *** BY PAUL BARNES *** 

7 REM *** DESERONTO, ONTARIO *** 

8 REM ******************************* 
10 DATA 166, 142, 134, 8, 166, 143 

10 DATA 166. 60. 134. 17, 166, 61 

15 DATA 134, 9, 32, 34, 197, 144 

15 DATA 134. Uu 22u 44, 197, 144 

20 DATA 11, 166, 174, 142, 132, 3 

20 DATA 11. 166. 92, 142, 132, 1 

25 DATA 166, 175, 142, 133, 3 96 

25 DATA 166. 93, 142, 133, 3 9£ 

30 DATA 162, 0, 142, 132, 3, 162 

35 

40 FOR F = 826 TO 860 : READ S : POKE 

F, S 

50 

60 

70 J = 26545 * 10 : FOR D = 1 TO 100 
DATA 

80 
100 
110 
120 
130 
200 

210 FOR T = 1 TO 3 : READ A$ : PRINT A$ 
230 NEXT : PRINT : GOTO 200 

998 REM *** SUBROUTINE TO RESTORE DATA 

999 REM *** AT A CERTAIN LINE NUMBER 
1000 INPUT "RESTORE TO LINE"; A 
1010 H = INT (A/256) : L = A - H * 256 
1020 REM POKE CURRENT DATA LINE POINTER 
1030 POKE 142, L : POKE 143, H 
1030 POKE 60. L ; POKE 61. H 
1040 SYS 826 

1050 L = PEEK(900) : H = PEEK(901) 
1060 IF L=0 AND H=0 THEN PRINT "LINE NOT 
FOUND" : GOTO 1000 

1070 REM POKE MEMORY ADDRESS OF DATA LINE 
1080 A=H*256+L-1:H= INT(A/256) 
: L = A - H * 256 
1090 POKE 144, L : POKE 145, H 
1090 POKE 62. L : POKE 63. H 
1100 RETURN 

Editors Note: Paul has submitted the above program for the 
Original ROM set. The duplicate underlined statements are 
for BASIC 2.0 ROM. 



DATA 162, 0, 142, 132, 3, 


DATA 0, 42, 133, 


3, 96 


FOR F = 826 TO 860 : 


READ S : 


: NEXT 




DATA "GOOD-BYE!" 




DATA "ANYBODY HOME?" 




J = 26545 * 10 : FOR 


D = 1 TO 


"MAYBE!" 




NEXT : DATA "HI!" 




DATA "GO HOME!" 




DATA "GO DIRECTLY TO 


JAIL!" 


DATA "DO NOT PASS GO! 


1 " 


DATA "DO NOT COLLECT 


$100! !!" 


GOSUB 1000 





JLJirst Look at the Visible Music Monitor V7.T. Gar butt, 

Mississauga, Ont. 

It all started in September 1977! Hal Chamberlin 
produced the classic v/ork on 6502 generated music in BYTE. 
This article was recently updated in the April 1980 issue of 
BYTE to the current state of the art for PET with the 
programning help from Dr. F. Covitz and Cliff Ashcraft. 

Unfortunately until very recently the 'Chamberlin' style 
music has suffered from a serious problem , human 
interfacing, a problem that incidentally plagues a number of 
micro-cornputer programs. Readers of The Transactor in the 
Metro Toronto area are no doubt aware of Mike Bonnycastle' s 
significant work to correct this problem, initially with an 
'Ola ROM' version about a year ago and more recently with an 
'upgrade ROM' version. Mike's pioneering efforts should not 
be overlooked as it still offers an effective human 
interfacea implementation, albeit the music graphics are 
non-standard and not available on playback and the editing is 
lin-ited. Mike' s work nevertheless issued a challenge to 
serious FtT music users to build a better music mousetrap. 

Well someone has taken that challenge seriously and what 
tliey have produced is a quantum leap forward in this temporal 
micro-computer world of daily future shock! 

The product is called THE VISIBLE MUSIC MONITOR. It is 
program.mmed by Dr. F. Levinson and is marketed by Gene Beal's 
AB COMPUTERS. (Readers of PET USER's NOTES will remember 
Gene as the editor.) 

The following is a brief outline of the major features of 
this superb package ( we'll take a closer user look at it in 
a future Transactor): 

1. Written almost entirely in machine language to operate 
on any PET, 'old' or 'upgrade' ROM , 8k or greater. 

2. Requires a simple user port 8-bit DAC, eg. as 
manufactured by AB COMPUTERS, Micro Technology 
Unlimited or Jim Butterf ield ' s Poor Fan's DAC as 
published in an earlier Transactor. 

3. Full seven octave range and four voice polyphony. 

4. Comphrensive screen graphics with full edit, cursor 
left/right , delete and insert. 

5. Music graphics available on playback. 

6. Auto baring. 

7. Initial and subsequent key and time signature setting. 

8. Simple tv;o or three keystroke note entry including the 
provision to program your ov7n keyboard entry syntax. 

9. Adjustable dynamics (volume). 

10. Preset or Fourier derived voices. 
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11. User programmable sequencer that permits scoring music 
in phrases and playing those phrases in user specified 
order during playback. 

12. Adjustable tempo during playback. 

13. Individually selectable vioce duration including 
dotted and triplet whole to 64th notes. 

14. Full transposition. 

15. Competively priced at $29.90 US. 

What does the VISIBLE MUSIC MONITOR lack. V7ell you don't 
have tie notes. Accidentals are not carried throughout a bar 
requiring repeated user programming. The first and seventh 
octave are shown as the 2nd and 6th octave albeit with 
appropriate identifiers. The graphics are not entirely 
standard. 

Finally chord entry is not the familiar 'one over the 
other' style but rather step horizontally across the screen. 
As each voice is tagged with its appropriate identification 
number along the bottom of the staff this method is actually 
helpful in entering one's music. On playback however the 
non-standard notation takes some getting used to. 

Will AB Computer (or others) stand still? I doubt it. 
In the interim if you our looking for a definitive music 
monitor do yourself a favor and audition this package. For 
availability contact the following: 

AB COMPUTERS, 

115 E. Stump Road, 

Montgomeryville, Pa., 

18936, 

(215) 699-8386 



REFERENCES 

1. Chamber lin, Hal, "A Sampling of Techniques for Computer 
Performance of Music," September 1977 BYTE, pages 62 thru 
83. (Reprinted in the BYTE Book of Computer Music, edited by 
Christopher P. Morgan, Byte Books, 1979, pages 47 thru 63.) 

2. Chamberlin , Hal, "Advanced Real-Time Music Synthesis 
Techniques", pages 70-94, 180-196. 

3. Butterfield, Jim, "Poor Man's D/A Converter", The Best of 
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MACHINE L ANGUAGE CASE CONVERTER S. Donald Rossland, B.C. 

This machine language program will convert strings to 
the correct upper/lower case condition for printing on CBM 
2022/23 printers with an original ROM PET. It is relocatable 
so will operate anywhere in memory. The routine given here 
puts it in the second cassette buffer, but changing the 
location given in line 10100 will place it wherever you wish. 

There are several things which must be done in order for 
the routine to operate correctly. These are best 
demonstrated by the following program. 

ML$="" : GOSUB 10000 

10 POKE 59468, 14 

20 ML$="azl23AZ" 

30 PRINT ML$ : OPEN 4,4 : PRINT#4,ML$ 

40 SYS 826 

50 PRINT#4,ML$ : CLOSE 4 

60 PRINT ML$ 

70 LIST 

10000 DATA 160, 

10010 DATA 0, 

10020 DATA 0, 

10030 DATA 0, 

10040 DATA 252, 

10050 DATA 193, 

10060 DATA 208, 

10070 DATA 201, 

10080 DATA 128, 145, 252, 192, 0, 208 

10090 DATA 223, 96 

10100 FOR A = 826 TO 881 : READ B 

10110 POKE A, B : NEXT : RETURN 

Note that line 20 is altered once the program is RUN. 
This is done by the SYS command in line 40. 

Now alter line 20 to: 

20 ML$ = ML$ + "azl23AZ" 

and reRUN from line 0. This time line 20 has not been 
changed in the listing. Whenever a string is formed by 
concatenation, the nev/ string is stored in a location 
different from the original strings i.e. up in high RAM. It 
is this new location that has been altered. The major 
advantage in working on a string stored av/ay from the program 
listing is that you don't have to worry if the string has 
been previously altered. 

Nov? change line to: 

A = : GOSUB 10000 

and reRUN from line 0. Two points to note are: 

1. Make sure that the variable string to 
be printed is #1 in the variable 
table, and 

2. form the string to be printed by 
concatenation. 
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ASSEMBLY LANGUAGE LISTING OF UPPER/LOVJER CASE CONVERTER 

MOVE VARIABLE POINTERS TO ZERO PAGE 

LDY 2 Set Y register offset. 

LDA 124, Y Load A with byte from variable table pointed to by 

124/125 + Y 
STA 251,0 and move to location 251. This byte is the 

character count. 
INY Increment offset. 
LDA 124, Y 
STA 252,0 
INY Shift start address of string to zero page. 

LDA 124, Y 
STA 253,0 

ADJUST STRING 

LDY 251,0 Load Y with string character count from location 251 
DEY Decrement Y offset. Y points to character to be 
altered next. 

TEST FOR L0V7ER CASE 

LDA 252, Y Load A with string byte pointed to by 252/253 

and offset by Y 
CMP 219 and compare to lower case 'z' and 
BCS 22 if greater than, skip to COMPARE Y. 
CMP 193 Compare to lower case 'a' and 
BCC 5 if less than skip to TEST FOR UPPER CASE. 

ADJUST LOWER CASE 

SEC Set carry flag 

SBC 128 Subtract 128 from the string byte in A and 

BNE 11 always skip to STORE MODIFIED CHARACTER. 

TEST FOR UPPER CASE 

CMP 91 Compare to upper case 'Z' and 

BCS 9 skip to COMPARE Y if greater than. 

CMP 65 Compare to upper case 'A' and 

BCC 5 skip to COMPARE Y if less than. 

ADJUST UPPER CASE 

CLC Clear carry flag. 

ADC 128 Add 128 to string byte. 

STORE MODIFIED CHARACTER 

STA 128, Y Store byte at location pointed to by 
252/253 and offset by Y. 

COMPARE Y FOR STRING END 

CPY Compare Y to '0' and 

BNE 223 skip to DEY in ADJUST STRING if string 

not finished. 
RTS Otherwise, return to BASIC. 
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PRODUCT ANNOUNCEMENT 



Without fanfare General Instruments introduced an LSI 
chip in the early Spring of 1979 called the Programmable 
Sound Generator (PSG) . The chip was primarily intended for 
sound effects generation under micro-computer control. This 
facility clearly seperated it from the Texas Instruments 
Complex Sound Generator. The potential of computer control 
was (and is) enormous. Make that memory mapped register 
addressing , which the PSG is, and the benefits become 
nothing short of spectacular. 

With equal understatement Steve Ciarcia published a 
comparison of the GI and Ti products last July ( Byte . July 
1979 , "Ciarcia's Circuit Cellar: Sound Off"); well as best a 
comparison can be between apples and oranges. 

Imagine if you can a single 24 or 40 pin device ( called 
the AY-3-8912 or Ay-3-8910 respectively ); operating off a 
single 5 volt pov/er supply; requiring a minimum of external 
components ( a 6520 as far as the PET is concerned ) — the 
pull up resistors are for the most part included in the chip 
; containing three DAC's, three envelope generators, three 
VGA's, three mixers; an noise generator and one or two 8 bit 
parallel user ports depending on v/hich pin-out you need. As 
we mentioned the whole works is controlled by a memory mapped 
register addressing scheme requiring minimum processor 
overhead. 

Performance specifications you ask? Hov; about a range of 
eight octaves, a possible 45+db S/N, an optimum clock 
frequency of 1 mega-hertz, etc. The price? An incredibly 
low $15 or $20 depending on pin-out. 

One enterprising firm from Chicago, ACKERMAN DIGITAL 
SYSTEMS INC ( a company you should be hearing a great deal 
more about in the future) were not caught sleeping when the 
PSG arrived. ACKERMAN DIGITAL quickly produced an S-100 
board called the NOISEMAKER, incorporating two of the 40 pin 
version! Imagine, six channel mono or full three channel 
stereo. 

Any PET owner with an S-100 adapter can acquire an 
NOISEMAKER PCB from ACKERMAN DIGITAL for a mere 39.95 U.S.. 
For less than $100 ( assuming a well stocked parts bin ) and 
a modest programming skill one can have a super PET music 
synthesizer. 

That's not all though! 

If you are not up to the software challenge ACKERMAN 
DIGITAL has developed an 8080 music compiler for the 
NOISEMAKER. (We will see if a 6502 version can be derived.) 
ACKERMAN DIGITAL is also manufacturing a NOISEMAKER for 
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another well known 6502 system { was that Apple or Atari?) . 
They are also developing a software package! 

PET plans? You bet! The Transactor will keep you up to 
date with the latest progress on this milestone product. 

For more information please contact, 
ACKERMAN DIGITAL SYSTEMS INC. , 
110 N. YORK Rd., 
Suite 208, 
Elmhurst, II. 60126 
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Back - Up 

The notes below refer to articles in previous Transactors 

that contained errors or may require some clarity in 

explanation or application. Although everything published is 

tested, the possibility of an unforeseen condition or 

situation always exists. Most of the items printed in 

Back - Up were recognized by our readers. . .your feedback is 
appreciated. 



Block Get - Transactor #7 

By now I'm sure any programmer using direct disk access 
is using Block Get (Many thanks to Bill MacLean for this 
excellent routine). However, Block Get can also be used for 
sequential file access to recover strings of length greater 
than 80. Even 255 character strings can be retrieved with 
Block Get provided they are follov;ed by a carriage return 
{CHR${13)). Essentially, Block Get is the same as INPUT* but 
with a 255 character input buf fer. .. .which brings us to 
point 2. 

This 255 byte buffer is set up in the very top page of 
RAM; $7F00 tc $7FFF on 32Ks or $3F00 to $3FFF for 16Ks. This 
space must be sealed off before INPUTing or INPUT#ing 
strings, defining strings as the result of a concatenation, 
LOADing DOS Support or anything else that resides in this 
memory space. Otherwise when Block Get is called, the data 
will be transfered from the disk into the buffer and clobber 
your DOS Support, strings or whatever happens to be there. 

POKE 53 , PEEK (53) - 1 : CLP. 

Location 53 ($35) is the high order byte of the Top Of 
BASIC Pointer. Decrementing 53 by 1 brings the pointer down 
by 256 thus "sealing off" the top page of memory. PET will 
then ignore this memory as though it's not even there (try 
?FRE(0)). You may want to use absolute values rather than 
PEEK (53) - 1 since each time this is executed, the pointer 
will decrement another 256 bytes. 

32K : POKE 53 , 127 : CLR 

16K : POKE 53 , 63 : CLR 

The CLR command equates some other pointers to the nev; 
value of the Top of BASIC Pointer i.e. the Bottom of Strings 
Pointer and the Utility String Pointer. These could also be 
POKEd, but CLR does the job quite nicely. 

If DOS Support is to be used with Block Get, this 
statement should be executed prior to RUHning DOS. However 
Block Get contains one gotcha that will leave DOS open for 
certain destruction. 

When DOS Support is LOADed and RUN, it sets itself up 
just below the Top of BASIC Pointer (TBP) . After executing 
the above command, the TBP will now be 256 bytes lower.... 
but that's ok since DOS can live anywhere. Once set up 
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though, DOS lowers this pointer again to protect itself. But 
each time Block Get is called, the pointer is moved back to 
256 bytes lower than the TBP at power up. Now DOS is sitting 
in memory that is available to BASIC. Re-RUH your program 
and whammo! . . .DOS Support gets clobbered by strings. Hit'">" 
and PET JSRs to where DOS used to be which is now ASCII 
characters. . . .crash! 

Fortunately this can be avoided. The first 8 bytes of 
Block Get sets the TBP every time it's called: 

033A LDA #$00 

033C STA $34 

033E LDA #$7F (3F for 16K) 

0340 STA $35 

Therefore when using DOS Support and Block Get, SYS past 
these bytes with: 

SYS StlA , LF# , A$ 
Instead of: SYS 826 , LF# , A$ 

Supermon 1.0 - Transactor #fi 

Those who have entered the code for Supermon 1.0 may 
have noticed an error when using the Checksum program i.e. 
BLOCK 42. The error lies not in Supermon but in the Checksum 
program. Two changes to make: 

1. the last number in the Checksum program 
from 4501 to 5392. 

2. the end addresses of the monitor Save 
commands on page 20 from 0D45 to 0D46. 

Re-DIMensioninq Arrays - Transactor R 

One extra note on re-dimensioning some arrays but not 
all (pg 2). Once the End of Arrays Pointer (EAP) is stored 
in PL% and PH% (line 100), no new variables should be 
defined. This includes all variable types; floating point, 
integer, string and array. 

For a program, RAM is used by PET in the following 
order: 

BASIC Text 
Variables table 
Arrays 



Dynamic Strings 

Notice that Arrays immediately follow the Variables table. 
If a new variable (one that hasn't yet been executed) is 
defined after storing the EAP, the Arrays must all be moved 
up to make room for the new variable in the Variables table. 
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The EAP will now be slightly higher than what was stored 
previously. Therefore restoring the EAP to PL% and PH% will 
chop off part of the last permanent array. 

To avoid any problems involving this, simply set all 
variables to zero (including PL% and PH%) before storing the 
EAP. For example, page 2 of Transactor #8 should include: 



90 PL%=0 : PH%=0 : I%=0 : J%=0 



K%=0 



Also, line 2100 should be: 



2100 REM RE-DIK ARRAYS X , Y% AND Z$ 



Cursor Positioning - Transactor ft 

The following is an example for remembering and 
restoring the position of the cursor which should have been 
included in the last issue. First code the two subroutines 
as shown on page 3, Transactor 8. 



OF THE CURSOR 
: GOSUB 30050 



100 PRINT "[CS]"; 

110 PRINT "ISDN]"; 

120 PRINT "THE POSITION 

WILL BE STORED HERE :"; 

130 PRINT "[HM]"; 

140 PRINT "THEN THE STRING 

BE PRINTED FOLLOWING THE COLON" 

150 GOSUB 30150 

160 PRINT "*****"; : END 



• ***** I 



WILL 
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